diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-02 14:49:45 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-02 14:49:45 +0000 |
| commit | 319a0b23c2cd8294c8d71d51e3ecb973afe3fd48 (patch) | |
| tree | da4f3d3239eb7234808cd04dfbdd8dba919fc612 /compiler/iface | |
| parent | a8c3a7ccaf3e1d820a7902a478948a55f5324f50 (diff) | |
| download | haskell-319a0b23c2cd8294c8d71d51e3ecb973afe3fd48.tar.gz | |
Fix validate: -Werror bug in patch "Replacing copyins and copyouts..."
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/BinIface.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index ab4ab01a8c..58ae603d55 100644 --- 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 |