From c29ef0cce218387b87f4beee9d76a565941d3bf0 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Tue, 9 Jun 2020 17:17:38 +0200
Subject: [PATCH] Fix duplicated desc-parts bug

---
 src/UI/Butcher/Monadic/Internal/Core.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/UI/Butcher/Monadic/Internal/Core.hs b/src/UI/Butcher/Monadic/Internal/Core.hs
index 1fca031..5104367 100644
--- a/src/UI/Butcher/Monadic/Internal/Core.hs
+++ b/src/UI/Butcher/Monadic/Internal/Core.hs
@@ -318,6 +318,7 @@ type PartParsedData = Map Int [Dynamic]
 
 data CmdDescStack = StackBottom (Deque PartDesc)
                   | StackLayer  (Deque PartDesc) String CmdDescStack
+  deriving Show
 
 descStackAdd :: PartDesc -> CmdDescStack -> CmdDescStack
 descStackAdd d = \case
@@ -1023,6 +1024,7 @@ runCmdParserAExt mTopLevel inputInitial cmdParser =
               ++ " with remaining input: "
               ++ show input
             ]
+          mSet $ StackBottom mempty
           failureCurrentShallowRerun
           processParsedParts $ nextF monadMisuseError
         continueOrMisuse :: Maybe p -> m (CmdParser f out a)