From e55a21280d255399e9d1f1979f2035fc9ead8666 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 31 Jan 2022 23:26:13 +0200
Subject: Format strings with fmt

---
 src/main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/main.hs')

diff --git a/src/main.hs b/src/main.hs
index e23dcf3..b596a84 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -38,11 +38,11 @@ bootstrap args = do
   let config = getConfig initialConfig args
   fileName <- getFileName config
 
-  debugPrint config $ "executing file " ++ fileName ++ "\n"
+  debugPrint config $ fmt "executing file %%\n" [fileName]
   source <- liftIO . readFile $ fileName
   (parsedSource, strLitRefMap) <- parseSource source
-  debugPrint config $ "parsed words:\n" ++ show parsedSource ++ "\n"
-  debugPrint config $ "string literal refmap:\n" ++ show strLitRefMap ++ "\n"
+  debugPrint config $ fmt "parsed words:\n%%\n" [show parsedSource]
+  debugPrint config $ fmt "string literal refmap:\n%%\n" [show strLitRefMap]
   debugPrint config "interpreter output:"
   let initialState =
         LState
-- 
cgit v1.3