diff options
Diffstat (limited to 'compiler/deSugar/DsUtils.hs')
| -rw-r--r-- | compiler/deSugar/DsUtils.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/compiler/deSugar/DsUtils.hs b/compiler/deSugar/DsUtils.hs index 819944312b..bce5186f08 100644 --- a/compiler/deSugar/DsUtils.hs +++ b/compiler/deSugar/DsUtils.hs @@ -30,7 +30,7 @@ module DsUtils ( -- LHs tuples mkLHsVarPatTup, mkLHsPatTup, mkVanillaTuplePat, - mkBigLHsVarTup, mkBigLHsTup, mkBigLHsVarPatTup, mkBigLHsPatTup, + mkBigLHsVarTupId, mkBigLHsTupId, mkBigLHsVarPatTupId, mkBigLHsPatTupId, mkSelectorBinds, @@ -717,18 +717,18 @@ mkVanillaTuplePat :: [OutPat Id] -> Boxity -> Pat Id mkVanillaTuplePat pats box = TuplePat pats box (map hsLPatType pats) -- The Big equivalents for the source tuple expressions -mkBigLHsVarTup :: [Id] -> LHsExpr Id -mkBigLHsVarTup ids = mkBigLHsTup (map nlHsVar ids) +mkBigLHsVarTupId :: [Id] -> LHsExpr Id +mkBigLHsVarTupId ids = mkBigLHsTupId (map nlHsVar ids) -mkBigLHsTup :: [LHsExpr Id] -> LHsExpr Id -mkBigLHsTup = mkChunkified mkLHsTupleExpr +mkBigLHsTupId :: [LHsExpr Id] -> LHsExpr Id +mkBigLHsTupId = mkChunkified mkLHsTupleExpr -- The Big equivalents for the source tuple patterns -mkBigLHsVarPatTup :: [Id] -> LPat Id -mkBigLHsVarPatTup bs = mkBigLHsPatTup (map nlVarPat bs) +mkBigLHsVarPatTupId :: [Id] -> LPat Id +mkBigLHsVarPatTupId bs = mkBigLHsPatTupId (map nlVarPat bs) -mkBigLHsPatTup :: [LPat Id] -> LPat Id -mkBigLHsPatTup = mkChunkified mkLHsPatTup +mkBigLHsPatTupId :: [LPat Id] -> LPat Id +mkBigLHsPatTupId = mkChunkified mkLHsPatTup {- ************************************************************************ |