Commit 319a0b23 authored by Simon Marlow's avatar Simon Marlow
Browse files

Fix validate: -Werror bug in patch "Replacing copyins and copyouts..."

parent a8c3a7cc
...@@ -74,11 +74,6 @@ readBinIface_ checkHiWay traceBinIFaceReading hi_path nc = do ...@@ -74,11 +74,6 @@ readBinIface_ checkHiWay traceBinIFaceReading hi_path nc = do
vcat [text "Wanted " <> ppr wanted <> text ",", vcat [text "Wanted " <> ppr wanted <> text ",",
text "got " <> ppr got]) text "got " <> ppr got])
errorOnMismatch' :: (Eq a, Show a) => String -> a -> a -> IO () -> IO ()
errorOnMismatch' what wanted got io
= do when (wanted /= got) $ io
errorOnMismatch what wanted got
errorOnMismatch :: (Eq a, Show a) => String -> a -> a -> IO () errorOnMismatch :: (Eq a, Show a) => String -> a -> a -> IO ()
errorOnMismatch what wanted got errorOnMismatch what wanted got
-- This will be caught by readIface which will emit an error -- This will be caught by readIface which will emit an error
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment