[minor library optimization to Numeric.roundTo
John Meacham <john@repetae.net>**20090827104254
 Ignore-this: a8ddb9ddd8d55f7ebfcaae50b4d8b871
] hunk ./lib/jhc/Numeric.hs 212
-                                   (if ei > 0 then init is' else is')
-                    in d:'.':ds  ++ "e" ++ show (e-1+ei)
+                                   (if ei then init is' else is')
+                    in d:'.':ds  ++ "e" ++ show (e-1+fromEnum ei)
hunk ./lib/jhc/Numeric.hs 226
-                       (ls, rs)  = splitAt (e+ei)
+                       (ls, rs)  = splitAt (e+fromEnum ei)
hunk ./lib/jhc/Numeric.hs 233
-                                    (if ei > 0 then is' else 0:is')
+                                    (if ei then is' else 0:is')
hunk ./lib/jhc/Numeric.hs 244
-roundTo :: Int -> Int -> [Int] -> (Int, [Int])
+roundTo :: Int -> Int -> [Int] -> (Bool, [Int])
hunk ./lib/jhc/Numeric.hs 246
-                (0, is) -> (0, is)
-                (1, is) -> (1, 1 : is)
+                (False, is) -> (False, is)
+                (True, is) -> (True, 1 : is)
hunk ./lib/jhc/Numeric.hs 249
-        f n [] = (0, replicate n 0)
-        f 0 (i:_) = (if i >= b2 then 1 else 0, [])
+        f n [] = (False, replicate n 0)
+        f 0 (i:_) = (i >= b2, [])
hunk ./lib/jhc/Numeric.hs 253
-                i' = c + i
-            in  if i' == base then (1, 0:ds) else (0, i':ds)
+                i' = fromEnum c + i
+            in  if i' == base then (True, 0:ds) else (False, i':ds)