From c47d7d0f7ec0f017155f1e9e617d39db81f7dcfc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 13 Apr 2016 13:04:38 -0400 Subject: [PATCH] correct comment --- Command/LockContent.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Command/LockContent.hs b/Command/LockContent.hs index ce812ef30c..de697c0901 100644 --- a/Command/LockContent.hs +++ b/Command/LockContent.hs @@ -22,7 +22,7 @@ seek :: CmdParams -> CommandSeek seek = withWords start -- First, lock the content. Then, make sure the content is actually --- present, and print out a "1". Wait for the caller to send a line before +-- present, and print out "OK". Wait for the caller to send a line before -- dropping the lock. start :: [String] -> CommandStart start [ks] = do