Replace .lhs with .hs in compiler comments
[ghc.git] / compiler / specialise / SpecConstr.hs
index 9b24604..64e2cd1 100644 (file)
@@ -1836,13 +1836,13 @@ argToPat env in_scope val_env (Tick _ arg) arg_occ
 
 argToPat env in_scope val_env (Let _ arg) arg_occ
   = argToPat env in_scope val_env arg arg_occ
-        -- See Note [Matching lets] in Rule.lhs
+        -- See Note [Matching lets] in Rule.hs
         -- Look through let expressions
         -- e.g.         f (let v = rhs in (v,w))
         -- Here we can specialise for f (v,w)
         -- because the rule-matcher will look through the let.
 
-{- Disabled; see Note [Matching cases] in Rule.lhs
+{- Disabled; see Note [Matching cases] in Rule.hs
 argToPat env in_scope val_env (Case scrut _ _ [(_, _, rhs)]) arg_occ
   | exprOkForSpeculation scrut  -- See Note [Matching cases] in Rule.hhs
   = argToPat env in_scope val_env rhs arg_occ