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
displayResult :: Map.Map T.Text (Term T.Text) -> T.Text
displayResult m | Map.null m = "Yes."
displayResult m
= T.intercalate "\n"
$ map (\(k, v) -> k <> " = " <> displayTerm v)
$ filter (\(k, v) -> v /= TVar k)
$ Map.assocs m
| null termsToDisplay = "Yes."
| otherwise = T.intercalate "\n" termsAsStrings
where
termsToDisplay = filter (\(k, v) -> v /= TVar k) $ Map.assocs m
termsAsStrings = map (\(k, v) -> k <> " = " <> displayTerm v) termsToDisplay