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 =