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
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