diff options
Diffstat (limited to 'src/main.hs')
| -rw-r--r-- | src/main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |