diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2017-10-03 22:09:49 -0400 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2017-10-04 22:09:29 -0400 |
| commit | d8d87fa2b22404b7939956974f53858c41ec7769 (patch) | |
| tree | 98c798ef5cb75dc42f15ce1138f7e4c169e1655d /compiler/hsSyn/Convert.hs | |
| parent | 7109fa8157f3258912c947f28dab7617b5e5d281 (diff) | |
| download | haskell-d8d87fa2b22404b7939956974f53858c41ec7769.tar.gz | |
Remove m_type from Match (#14313)
this is a remains from supporting Result Type Signaturs in the ancient
past.
Differential Revision: https://phabricator.haskell.org/D4066
Diffstat (limited to 'compiler/hsSyn/Convert.hs')
| -rw-r--r-- | compiler/hsSyn/Convert.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/hsSyn/Convert.hs b/compiler/hsSyn/Convert.hs index f9e5ca1958..bffb2028c3 100644 --- a/compiler/hsSyn/Convert.hs +++ b/compiler/hsSyn/Convert.hs @@ -762,8 +762,7 @@ cvtClause ctxt (Clause ps body wheres) ; pps <- mapM wrap_conpat ps' ; g' <- cvtGuard body ; ds' <- cvtLocalDecs (text "a where clause") wheres - ; returnL $ Hs.Match ctxt pps Nothing - (GRHSs g' (noLoc ds')) } + ; returnL $ Hs.Match ctxt pps (GRHSs g' (noLoc ds')) } ------------------------------------------------------------------- @@ -1001,8 +1000,7 @@ cvtMatch ctxt (TH.Match p body decs) _ -> wrap_conpat p' ; g' <- cvtGuard body ; decs' <- cvtLocalDecs (text "a where clause") decs - ; returnL $ Hs.Match ctxt [lp] Nothing - (GRHSs g' (noLoc decs')) } + ; returnL $ Hs.Match ctxt [lp] (GRHSs g' (noLoc decs')) } cvtGuard :: TH.Body -> CvtM [LGRHS GhcPs (LHsExpr GhcPs)] cvtGuard (GuardedB pairs) = mapM cvtpair pairs |