Remove readIface's unused argument
authorIan Lynagh <ian@well-typed.com>
Sun, 17 Mar 2013 01:28:49 +0000 (01:28 +0000)
committerIan Lynagh <ian@well-typed.com>
Sun, 17 Mar 2013 01:28:49 +0000 (01:28 +0000)
compiler/iface/LoadIface.lhs
compiler/iface/MkIface.lhs

index 0a52d66..ac0b09c 100644 (file)
@@ -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
index 19c76fb..b11158c 100644 (file)
@@ -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)