Commit c244ae2a authored by simonpj's avatar simonpj

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

Wibble to last commit
parent 40888e1d
......@@ -290,11 +290,11 @@ repBangTy (L _ (BangType str ty)) = do
repDerivs :: Maybe [LHsType Name] -> DsM (Core [TH.Name])
repDerivs Nothing = coreList nameTyConName []
repDerivs (Just (L _ ctxt))
repDerivs (Just ctxt)
= do { strs <- mapM rep_deriv ctxt ;
coreList nameTyConName strs }
where
rep_deriv :: LHsPred Name -> DsM (Core TH.Name)
rep_deriv :: LHsType Name -> DsM (Core TH.Name)
-- Deriving clauses must have the simple H98 form
rep_deriv (L _ (HsPredTy (L _ (HsClassP cls [])))) = lookupOcc cls
rep_deriv other = panic "rep_deriv"
......
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