Fix building errors on ghc < 7.8 and tests

This commit is contained in:
Alejandro Serrano
2014-06-28 23:18:49 +02:00
parent 1b66f65b48
commit c06ee75fbb
3 changed files with 3 additions and 10 deletions

View File

@@ -350,18 +350,10 @@ typeForUser = pprTypeForUser False
#endif
nameForUser :: Name -> SDoc
#if __GLASGOW_HASKELL__ >= 708
nameForUser = pprOccName . getOccName
#else
nameForUser = pprOccName False . getOccName
#endif
occNameForUser :: OccName -> SDoc
#if __GLASGOW_HASKELL__ >= 708
occNameForUser = pprOccName
#else
occNameForUser = pprOccName False
#endif
deSugar :: TypecheckedModule -> LHsExpr Id -> HscEnv
-> IO (Maybe CoreExpr)