Commit cafceec4 authored by simonpj's avatar simonpj
Browse files

[project @ 2004-10-08 11:37:46 by simonpj]

HsNoBang should simply be omitted; fixes a TH_spliceDecl2 test
parent 113397e4
......@@ -54,12 +54,12 @@ mk_con con = L loc0 $ case con of
(InfixCon (mk_arg st1) (mk_arg st2))
mk_arg (IsStrict, ty) = noLoc $ HsBangTy HsStrict (cvtType ty)
mk_arg (NotStrict, ty) = noLoc $ HsBangTy HsNoBang (cvtType ty)
mk_arg (NotStrict, ty) = cvtType ty
mk_id_arg (i, IsStrict, ty)
= (noLoc (vName i), noLoc $ HsBangTy HsStrict (cvtType ty))
mk_id_arg (i, NotStrict, ty)
= (noLoc (vName i), noLoc $ HsBangTy HsNoBang (cvtType ty))
= (noLoc (vName i), cvtType ty)
mk_derivs [] = Nothing
mk_derivs cs = Just [noLoc $ HsPredTy $ HsClassP (tconName c) [] | c <- cs]
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