Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/50e5a06b3d673266a472810a6c5fd3646450ec54 >--------------------------------------------------------------- commit 50e5a06b3d673266a472810a6c5fd3646450ec54 Author: Mikhail Vorozhtsov <[email protected]> Date: Mon Apr 2 18:03:48 2012 +0700 Fixed typo in b857c8ad which caused NewtypeD to be interpreted as DataD. Signed-off-by: Paolo Capriotti <[email protected]> >--------------------------------------------------------------- compiler/hsSyn/Convert.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index 90deaa7..7a15120 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -183,7 +183,7 @@ cvtDec (NewtypeD ctxt tc tvs constr derivs) = do { (ctxt', tc', tvs') <- cvt_tycl_hdr ctxt tc tvs ; con' <- cvtConstr constr ; derivs' <- cvtDerivs derivs - ; let defn = TyData { td_ND = DataType, td_cType = Nothing + ; let defn = TyData { td_ND = NewType, td_cType = Nothing , td_ctxt = ctxt' , td_kindSig = Nothing , td_cons = [con'], td_derivs = derivs' } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
