Permalink
Browse files

Some cleanup, correct test output

  • Loading branch information...
Mario Alvarez-Picallo
Mario Alvarez-Picallo committed Feb 11, 2019
1 parent c2a08a5 commit 998e3854b891c40b9f8b6df585c47a0de2ebfa0b
@@ -149,8 +149,9 @@ data Token a = LexName { loc :: a
deriving (Show, Eq, Generic, NFData)

asBytes :: Word8 -> Doc a
asBytes x = Text 2 $ T.pack $ addLeadingZero $ ($ mempty) $ showHex x
where addLeadingZero
asBytes x = Text 2 $ T.pack $ addLeadingZero $ showHex x mempty
where addLeadingZero :: String -> String
addLeadingZero
| x < 16 = ("0" ++)
| otherwise = id

@@ -1 +1 @@
(con 32 ! #2cf24dba5fb0a3e26e83b2ac5b9e29e1b161e5c1fa7425e7343362938b9824)
(con 32 ! #2cf24dba5fb0a30e26e83b2ac5b9e29e1b161e5c1fa7425e73043362938b9824)

0 comments on commit 998e385

Please sign in to comment.