diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-15 09:53:01 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-15 14:16:09 +0100 |
| commit | fe389f502481c90e3a69f04924f8fa393b83ba43 (patch) | |
| tree | b82398427220e2a7198c8c4f06d7b3f0dc92e96d | |
| parent | a18ea4f20b73e1b3ef5cda2389c713152eb9576e (diff) | |
| download | haskell-fe389f502481c90e3a69f04924f8fa393b83ba43.tar.gz | |
Make splitHsAppTys look through parentheses, fixing Trac #7903
This was really just an oversight from long ago.
| -rw-r--r-- | compiler/hsSyn/HsTypes.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/hsSyn/HsTypes.lhs b/compiler/hsSyn/HsTypes.lhs index a95630d74b..eeed5cdbfb 100644 --- a/compiler/hsSyn/HsTypes.lhs +++ b/compiler/hsSyn/HsTypes.lhs @@ -447,6 +447,7 @@ hsLTyVarLocNames qtvs = map hsLTyVarLocName (hsQTvBndrs qtvs) \begin{code} splitHsAppTys :: LHsType n -> [LHsType n] -> (LHsType n, [LHsType n]) splitHsAppTys (L _ (HsAppTy f a)) as = splitHsAppTys f (a:as) +splitHsAppTys (L _ (HsParTy f)) as = splitHsAppTys f as splitHsAppTys f as = (f,as) mkHsAppTys :: OutputableBndr n => LHsType n -> [LHsType n] -> HsType n |