[project @ 2005-05-17 12:00:04 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / DriverPipeline.hs

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 910d491..c63b1a7 100644 (file)
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -54,6 +54,7 @@ import ParserCoreUtils        ( getCoreModuleName )
 import SrcLoc          ( srcLocSpan, mkSrcLoc )
 import FastString      ( mkFastString )
 import Bag             ( listToBag, emptyBag )
+import SrcLoc          ( Located(..) )
 
 import EXCEPTION
 import DATA_IOREF      ( readIORef, writeIORef, IORef )
@@ -621,7 +622,7 @@ runPhase (Hsc src_flavour) stop dflags0 basename suff input_fn get_output_fn _ma
                                  ; return (Nothing, mkModule m) }
 
                other -> do { buf <- hGetStringBuffer input_fn
-                           ; (_,_,mod_name) <- getImports dflags buf input_fn
+                           ; (_,_,L _ mod_name) <- getImports dflags buf input_fn
                            ; return (Just buf, mod_name) }
 
   -- Build a ModLocation to pass to hscMain.