Commit 50e5a06b authored by mikhail.vorozhtsov's avatar mikhail.vorozhtsov Committed by pcapriotti
Browse files

Fixed typo in b857c8ad which caused NewtypeD to be interpreted as DataD.


Signed-off-by: pcapriotti's avatarPaolo Capriotti <p.capriotti@gmail.com>
parent 270b7ce5
......@@ -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' }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment