git.iko.soy/distributed-process
on master help sign in
TH: Use conT and appT instead of classP
ea2ac2cBen Gamari
src/Control/Distributed/Process/Internal/Closure/TH.hs+3−2
compare with master
unifiedsplit
@@ -33,7 +33,8 @@ import Language.Haskell.TH
33 , Pred
33 , Pred
34#endif
34#endif
35 , varT
35 , varT
36− , classP
36+ , conT
37+ , appT
37 -- Lifted constructors
38 -- Lifted constructors
38 -- .. Literals
39 -- .. Literals
39 , stringL
40 , stringL
@@ -261,7 +262,7 @@ generateStatic n xs typ = do
261 ]
262 ]
262 where
263 where
263 typeable :: TyVarBndr -> Q Pred
264 typeable :: TyVarBndr -> Q Pred
264− typeable tv = classP (mkName "Typeable") [varT (tyVarBndrName tv)]
265+ typeable tv = conT (mkName "Typeable") `appT` varT (tyVarBndrName tv)
265
266
266-- | Generate a serialization dictionary with name 'n' for type 'typ'
267-- | Generate a serialization dictionary with name 'n' for type 'typ'
267generateDict :: Name -> Type -> Q [Dec]
268generateDict :: Name -> Type -> Q [Dec]