git.iko.soy/typeable/hexml
on master help sign in
Add a better error message on === failing
75e35deNeil Mitchell
src/Main.hs+1−1
compare with master
unifiedsplit
@@ -62,7 +62,7 @@ checkFind n = do
62 mapM_ checkFind $ children n
62 mapM_ checkFind $ children n
63
63
64
64
65−a === b = if a == b then putChar '.' else fail "mismatch"
65+a === b = if a == b then putChar '.' else fail $ "mismatch, " ++ show a ++ " /= " ++ show b
66
66
67rerender :: Node -> BS.ByteString
67rerender :: Node -> BS.ByteString
68rerender = inside
68rerender = inside