X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FFormat.hs;h=f017f5e6a81ef1093354d0efb9970948fae1d1a1;hb=3d017dd65ddede9a11c5b7a34a91e04340e67bc4;hp=042b4fec5c4422a089297b844dae7c59d2c6cb4f;hpb=d05d8c883eaca12ee621975a2b95c5ebdc2357d2;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Format.hs b/Network/HTTP/Lucu/Format.hs
index 042b4fe..f017f5e 100644
--- a/Network/HTTP/Lucu/Format.hs
+++ b/Network/HTTP/Lucu/Format.hs
@@ -23,9 +23,9 @@ fmtInt base upperCase minWidth pad forceSign n
         sign ++ padded
     where
       fmt' :: Int -> String
-      fmt' n
-          | n < base  = (intToChar upperCase n) : []
-          | otherwise = (intToChar upperCase $! n `mod` base) : fmt' (n `div` base)
+      fmt' m
+          | m < base  = (intToChar upperCase m) : []
+          | otherwise = (intToChar upperCase $! m `mod` base) : fmt' (m `div` base)
 
 
 fmtDec :: Int -> Int -> String
@@ -123,4 +123,5 @@ intToChar True  13 = 'D'
 intToChar False 14 = 'e'
 intToChar True  14 = 'E'
 intToChar False 15 = 'f'
-intToChar True  15 = 'F'
\ No newline at end of file
+intToChar True  15 = 'F'
+intToChar _ _ = undefined