Add a better error message on === failing
commit75e35de447f6244cb21905f98af088b17285c5e1
authorNeil Mitchell <ndmitchell@gmail.com>
dateWed 30 Nov 2016, 19:08 (10 years ago)
parent5665106
src/Main.hs+1−1
@@ -62,7 +62,7 @@ checkFind n = do
6262 mapM_ checkFind $ children n
6363
6464
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
6666
6767rerender :: Node -> BS.ByteString
6868rerender = inside