hexagoxel
/
butcher
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Fix buggy handling of defaults on CmdParserPart

pull/6/head
Lennart Spitzner 2020-04-10 23:34:26 +02:00
parent ded3192962
commit 34d94c2d2e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/UI/Butcher/Monadic/Internal/Core.hs
View File

@ -625,6 +625,10 @@ runCmdParserAExt mTopLevel inputInitial cmdParser =
mSet $ InputArgs strr mSet $ InputArgs strr
actRest <- processMain $ nextF x actRest <- processMain $ nextF x
return $ actF x *> actRest return $ actF x *> actRest
Just (x, rest) | str == rest -> do
-- no input consumed, default applied
actRest <- processMain $ nextF x
return $ actF x *> actRest
_ -> do _ -> do
mTell ["could not parse " ++ getPartSeqDescPositionName desc] mTell ["could not parse " ++ getPartSeqDescPositionName desc]
processMain $ nextF monadMisuseError processMain $ nextF monadMisuseError