Garmelon/propa-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix when "Yes." is displayed.

Browse source 
It is now displayed whenever a solution is found but no variable assignments is
printed.
This commit is contained in:
Joscha 2020-12-14 11:21:42 +00:00
parent bf50628483
commit 01fa10fefb
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Propa/Prolog/Display.hs
View file

@ -62,9 +62,9 @@ displayDefs :: [Def T.Text] -> T.Text
displayDefs = T.intercalate "\n" . map displayDef displayDefs = T.intercalate "\n" . map displayDef
displayResult :: Map.Map T.Text (Term T.Text) -> T.Text displayResult :: Map.Map T.Text (Term T.Text) -> T.Text
displayResult m | Map.null m = "Yes."
displayResult m displayResult m
= T.intercalate "\n" | null termsToDisplay = "Yes."
$ map (\(k, v) -> k <> " = " <> displayTerm v) | otherwise = T.intercalate "\n" termsAsStrings
$ filter (\(k, v) -> v /= TVar k) where
$ Map.assocs m termsToDisplay = filter (\(k, v) -> v /= TVar k) $ Map.assocs m
termsAsStrings = map (\(k, v) -> k <> " = " <> displayTerm v) termsToDisplay