From bf50628483e66cf5e7e2ee13bfc2d61c45dcfdf1 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Mon, 14 Dec 2020 11:16:26 +0000
Subject: [PATCH] Make parseAndRun nicer to use in ghci

It now no longer requires -XOverloadedStrings
---
 src/Propa/Prolog/Debug.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Propa/Prolog/Debug.hs b/src/Propa/Prolog/Debug.hs
index 38866ee..22655b2 100644
--- a/src/Propa/Prolog/Debug.hs
+++ b/src/Propa/Prolog/Debug.hs
@@ -11,13 +11,13 @@ import           Propa.Prolog.Display
 import           Propa.Prolog.Parse
 import           Propa.Prolog.Unify
 
-parseAndRun :: T.Text -> T.Text -> IO ()
-parseAndRun dbText statsText = T.putStrLn $ case results of
+parseAndRun :: String -> String -> IO ()
+parseAndRun dbStr statsStr = T.putStrLn $ case results of
   Left e   -> e
   Right [] -> "No."
   Right rs -> T.intercalate "\n" rs
   where
     results = do
-      db <- parseDb "<input>" dbText
-      stats <- parseStats "<input>" statsText
+      db <- parseDb "<db>" $ T.pack dbStr
+      stats <- parseStats "<query>" $ T.pack statsStr
       pure $ map displayResult $ run db stats