diff --git a/ghc/lib/ghc/GHCmain.lhs b/ghc/lib/ghc/GHCmain.lhs
index 3926ba93dc5d0e709ed3627fedbbf091d506c8a9..6581c577985b59822892ac1a3f259d6cf47a6d6f 100644
--- a/ghc/lib/ghc/GHCmain.lhs
+++ b/ghc/lib/ghc/GHCmain.lhs
@@ -6,7 +6,7 @@ This is the mainPrimIO that must be used for Haskell~1.3.
 module GHCmain( mainPrimIO ) where
 
 import Prelude
-import qualified Main	-- for type of "Main.main"
+import {-# SOURCE #-} qualified Main	-- for type of "Main.main"
 import IOBase
 import STBase
 \end{code}