suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix printf

Browse Source
This commit is contained in:
Adam Sampson 2007-04-19 18:01:50 +00:00
parent 618ded6afd
commit 4efde46770
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fco2/GenerateC.hs
View File

@ -198,7 +198,7 @@ genLiteralRepr (A.ArrayLiteral m es)
tell ["}"]
hexToOct :: String -> String
hexToOct h = printf "%03o" (fst $ head $ readHex h)
hexToOct h = printf "%03o" ((fst $ head $ readHex h) :: Int)
convStringLiteral :: String -> String
convStringLiteral [] = []