projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
a8c3a7c
)
Fix validate: -Werror bug in patch "Replacing copyins and copyouts..."
author
Simon Marlow
<marlowsd@gmail.com>
Mon, 2 Jun 2008 14:49:45 +0000
(14:49 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Mon, 2 Jun 2008 14:49:45 +0000
(14:49 +0000)
compiler/iface/BinIface.hs
patch
|
blob
|
history
diff --git
a/compiler/iface/BinIface.hs
b/compiler/iface/BinIface.hs
index
ab4ab01
..
58ae603
100644
(file)
--- a/
compiler/iface/BinIface.hs
+++ b/
compiler/iface/BinIface.hs
@@
-74,11
+74,6
@@
readBinIface_ checkHiWay traceBinIFaceReading hi_path nc = do
vcat [text "Wanted " <> ppr wanted <> text ",",
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 what wanted got
-- This will be caught by readIface which will emit an error