Commit 76fcd85d authored by simonpj's avatar simonpj
Browse files

[project @ 2004-04-02 16:54:02 by simonpj]

Another stage-2 wibble to last commit
parent c244ae2a
...@@ -62,7 +62,7 @@ mk_con con = L loc0 $ case con of ...@@ -62,7 +62,7 @@ mk_con con = L loc0 $ case con of
= (noLoc (vName i), noLoc $ BangType HsNoBang (cvtType ty)) = (noLoc (vName i), noLoc $ BangType HsNoBang (cvtType ty))
mk_derivs [] = Nothing mk_derivs [] = Nothing
mk_derivs cs = Just (noLoc [noLoc $ HsClassP (tconName c) [] | c <- cs]) mk_derivs cs = Just [noLoc $ HsPredTy $ noLoc $ HsClassP (tconName c) [] | c <- cs]
cvt_ltop :: TH.Dec -> Either (LHsDecl RdrName) Message cvt_ltop :: TH.Dec -> Either (LHsDecl RdrName) Message
cvt_ltop d = case cvt_top d of cvt_ltop d = case cvt_top d of
......
Supports Markdown
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