implement another adjustment -- easy to do now!
This commit is contained in:
parent
a85196bd4e
commit
41b7c5f6aa
2 changed files with 19 additions and 8 deletions
|
@ -20,6 +20,6 @@ seek = withWords start
|
|||
|
||||
start :: [String] -> CommandStart
|
||||
start [] = do
|
||||
enterAdjustedBranch UnlockAdjustment
|
||||
enterAdjustedBranch HideMissingAdjustment
|
||||
next $ next $ return True
|
||||
start _ = error "Unknown parameter"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue