Fix location of spliced-in role annotations.
authorRichard Eisenberg <eir@cis.upenn.edu>
Mon, 2 Dec 2013 18:02:08 +0000 (13:02 -0500)
committerRichard Eisenberg <eir@cis.upenn.edu>
Mon, 2 Dec 2013 18:02:08 +0000 (13:02 -0500)
compiler/hsSyn/Convert.lhs

index e789d17..216ab22 100644 (file)
@@ -271,7 +271,7 @@ cvtDec (ClosedTypeFamilyD tc tyvars mkind eqns)
 cvtDec (TH.RoleAnnotD tc roles)
   = do { tc' <- tconNameL tc
        ; let roles' = map (noLoc . cvtRole) roles
-       ; return $ noLoc $ Hs.RoleAnnotD (RoleAnnotDecl tc' roles') }
+       ; returnL $ Hs.RoleAnnotD (RoleAnnotDecl tc' roles') }
 ----------------
 cvtTySynEqn :: Located RdrName -> TySynEqn -> CvtM (LTyFamInstEqn RdrName)
 cvtTySynEqn tc (TySynEqn lhs rhs)