Cleanup

2025-12-30 19:39:30 +00:00
parent 26b4b77ff6
commit 91aac70edf
2 changed files with 4 additions and 68 deletions
@@ -206,7 +206,7 @@ recComFindPredecessor (s:ss) (RCommands m)
            Just (s',Right x) -> Just ([s'],x)
            Just (s',Left rm') -> recComFindMax rm' & _Just . _1 .:~ s'
            Nothing -> Nothing
-recComFindPredecessor [] _ = Nothing
+recComFindPredecessor [] rm = recComFindMax rm
 --
 --recComFindPredecessor :: [String] -> RecCommands a -> Maybe ([String],a)
 --recComFindPredecessor (s:ss) (RCommands m) = Nothing