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

Display empty results and no results differently

Browse source
This commit is contained in:
Joscha 2020-12-13 23:53:13 +00:00
parent d473c8443f
commit a647b9e26f
2 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -61,8 +61,9 @@ displayDefs :: [Def T.Text] -> T.Text
displayDefs = T.intercalate "\n" . map displayDef
displayResult :: Map.Map T.Text (Term T.Text) -> T.Text
displayResult
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
$ map (\(k, v) -> k <> " = " <> displayTerm v)
$ filter (\(k, v) -> v /= TVar k)
$ Map.assocs m