shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Better error message

--- a/lib/Data/Integer.hs

+++ b/lib/Data/Integer.hs

@@ -181,7 +181,7 @@

     lys = length ays

     cmp (x:xs) (y:ys) = x < y || x == y && cmp xs ys

     cmp []     []     = False

-    cmp _      _      = error "cmp"

+    cmp _      _      = error "ltW.cmp"

 mulI :: Integer -> Integer -> Integer

 mulI (I _ []) _ = I Plus []         -- 0 * x = 0

-- 

⑨