From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 2 Jun 2008 14:49:45 +0000 (+0000)
Subject: Fix validate: -Werror bug in patch "Replacing copyins and copyouts..."
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=319a0b23c2cd8294c8d71d51e3ecb973afe3fd48;p=ghc-hetmet.git

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

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index ab4ab01..58ae603 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