correct comment
This commit is contained in:
parent
4e925cb604
commit
c47d7d0f7e
1 changed files with 1 additions and 1 deletions
|
@ -22,7 +22,7 @@ seek :: CmdParams -> CommandSeek
|
||||||
seek = withWords start
|
seek = withWords start
|
||||||
|
|
||||||
-- First, lock the content. Then, make sure the content is actually
|
-- 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.
|
-- dropping the lock.
|
||||||
start :: [String] -> CommandStart
|
start :: [String] -> CommandStart
|
||||||
start [ks] = do
|
start [ks] = do
|
||||||
|
|
Loading…
Add table
Reference in a new issue