From 4d724a5a6ef77efa376832ee9671894a5d397cef Mon Sep 17 00:00:00 2001 From: Adam Wick Date: Wed, 27 Nov 2019 16:23:13 -0800 Subject: [PATCH] Fix printing. --- generation/src/Base.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generation/src/Base.hs b/generation/src/Base.hs index f6ab57b..976a00e 100644 --- a/generation/src/Base.hs +++ b/generation/src/Base.hs @@ -79,7 +79,7 @@ buildDebugExp i top acc buildPrints :: Word -> String -> [Stmt Span] buildPrints entries printer = go (entries - 1) where - litStr = Token mempty (LiteralTok (StrTok ("{:" ++ printer ++ "}")) Nothing) + litStr = Token mempty (LiteralTok (StrTok ("{:016" ++ printer ++ "}")) Nothing) --Lit [] (Str ("{:" ++ printer ++ "}") Cooked Unsuffixed mempty) mempty go 0 = [] go x =