X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=cad384cb82fb574b556d41a3e00c13137a4ae9ef;hp=f271aa5f7b93abd83dfa5aeeef56b0e4f1af0257;hb=2fe38b5fb0957f9428864afd69ad3ccd82fae3d0;hpb=edc033b1b0e4ed4dccfaeb59a68b3e49b569d6ea

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index f271aa5..cad384c 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -741,7 +741,7 @@ ruleOrphWarn unqual mod rule
   = mkWarnMsg silly_loc unqual $
     ptext (sLit "Orphan rule:") <+> ppr rule
   where
-    silly_loc = srcLocSpan (mkSrcLoc (moduleNameFS (moduleName mod)) 1 0)
+    silly_loc = srcLocSpan (mkSrcLoc (moduleNameFS (moduleName mod)) 1 1)
     -- We don't have a decent SrcSpan for a Rule, not even the CoreRule
     -- Could readily be fixed by adding a SrcSpan to CoreRule, if we wanted to