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

Fix duplicated desc-parts bug

pull/8/head
Lennart Spitzner 2020-06-09 17:17:38 +02:00
parent f2f3688149
commit c29ef0cce2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -318,6 +318,7 @@ type PartParsedData = Map Int [Dynamic]
data CmdDescStack = StackBottom (Deque PartDesc) data CmdDescStack = StackBottom (Deque PartDesc)
| StackLayer (Deque PartDesc) String CmdDescStack | StackLayer (Deque PartDesc) String CmdDescStack
deriving Show
descStackAdd :: PartDesc -> CmdDescStack -> CmdDescStack descStackAdd :: PartDesc -> CmdDescStack -> CmdDescStack
descStackAdd d = \case descStackAdd d = \case
@ -1023,6 +1024,7 @@ runCmdParserAExt mTopLevel inputInitial cmdParser =
++ " with remaining input: " ++ " with remaining input: "
++ show input ++ show input
] ]
mSet $ StackBottom mempty
failureCurrentShallowRerun failureCurrentShallowRerun
processParsedParts $ nextF monadMisuseError processParsedParts $ nextF monadMisuseError
continueOrMisuse :: Maybe p -> m (CmdParser f out a) continueOrMisuse :: Maybe p -> m (CmdParser f out a)