From 4efde46770d4b2b25aec30cd000ffbcee27a051b Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Thu, 19 Apr 2007 18:01:50 +0000
Subject: [PATCH] Fix printf

---
 fco2/GenerateC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fco2/GenerateC.hs b/fco2/GenerateC.hs
index 0577c05..5ecb3ca 100644
--- a/fco2/GenerateC.hs
+++ b/fco2/GenerateC.hs
@@ -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 [] = []