[commit: ghc] master: Remove readIface's unused argument (c84001d)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/c84001d5c434ec8d4cf012ec5c0b0f74e372e715

>---------------------------------------------------------------

commit c84001d5c434ec8d4cf012ec5c0b0f74e372e715
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Mar 17 01:28:49 2013 +0000

    Remove readIface's unused argument

>---------------------------------------------------------------

 compiler/iface/LoadIface.lhs | 6 +++---
 compiler/iface/MkIface.lhs   | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 0a52d66..ac0b09c 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -547,7 +547,7 @@ findAndReadIface doc_str mod hi_boot_file
                                            (moduleName mod) err))
     where read_file file_path = do
               traceIf (ptext (sLit "readIFace") <+> text file_path)
-              read_result <- readIface mod file_path hi_boot_file
+              read_result <- readIface mod file_path
               case read_result of
                 Failed err -> return (Failed (badIfaceFile file_path err))
                 Succeeded iface 
@@ -579,12 +579,12 @@ findAndReadIface doc_str mod hi_boot_file
 @readIface@ tries just the one file.
 
 \begin{code}
-readIface :: Module -> FilePath -> IsBootInterface 
+readIface :: Module -> FilePath
           -> TcRnIf gbl lcl (MaybeErr MsgDoc ModIface)
         -- Failed err    <=> file not found, or unreadable, or illegible
         -- Succeeded iface <=> successfully found and parsed 
 
-readIface wanted_mod file_path _
+readIface wanted_mod file_path
   = do  { res <- tryMostM $
                  readBinIface CheckHiWay QuietBinIFaceReading file_path
         ; case res of
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 19c76fb..b11158c 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -1121,7 +1121,7 @@ check_old_iface hsc_env mod_summary src_modified maybe_iface
 
         loadIface = do
              let iface_path = msHiFilePath mod_summary
-             read_result <- readIface (ms_mod mod_summary) iface_path False
+             read_result <- readIface (ms_mod mod_summary) iface_path
              case read_result of
                  Failed err -> do
                      traceIf (text "FYI: cannot read old interface file:" $$ nest 4 err)