X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=3242dba9e57fd535a632a3d29da7b885a8a21565;hb=0b57caeac7840ef903a54ddd3196f3d573ca8cc4;hp=604f7a7abc24c419041aa16dec83b53f613c2d23;hpb=d83e1ac43a43dc30c7e4f5b64f7b77e32d31886d;p=ghc-hetmet.git

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 604f7a7..3242dba 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -51,7 +51,7 @@ import VarSet
 import VarEnv		( emptyTidyEnv )
 #endif
 
-import Var		( Id )
+import Id		( Id )
 import Module		( emptyModuleEnv, ModLocation(..), Module )
 import RdrName
 import HsSyn
@@ -674,7 +674,7 @@ hscCompile cgguts
                               stg_binds hpc_info
          --- Optionally run experimental Cmm transformations ---
          cmms <- optionallyConvertAndOrCPS hsc_env cmms
-                 -- ^ unless certain dflags are on, the identity function
+                 -- unless certain dflags are on, the identity function
          ------------------  Code output -----------------------
          rawcmms <- cmmToRawCmm cmms
          (_stub_h_exists, stub_c_exists)