diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-04-22 07:48:18 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-04-22 09:46:30 +0100 |
| commit | 3b932cc0ad885cc6eb9cef49fc1fe96bb9ff241e (patch) | |
| tree | 8a9f8fe261cf78c0adb93d0aaa3daa0c5ee3fb2e /compiler/coreSyn | |
| parent | 0bbc2ac6dae9ce2838f23a75a6a989826c06f3f5 (diff) | |
| download | haskell-3b932cc0ad885cc6eb9cef49fc1fe96bb9ff241e.tar.gz | |
Add a blank line
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreArity.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/coreSyn/CoreArity.hs b/compiler/coreSyn/CoreArity.hs index 47c80850a2..79e3463003 100644 --- a/compiler/coreSyn/CoreArity.hs +++ b/compiler/coreSyn/CoreArity.hs @@ -111,6 +111,7 @@ typeArity ty | Just (arg,res) <- splitFunTy_maybe ty = typeOneShot arg : go rec_nts res + | Just (tc,tys) <- splitTyConApp_maybe ty , Just (ty', _) <- instNewTyCon_maybe tc tys , Just rec_nts' <- checkRecTc rec_nts tc -- See Note [Expanding newtypes] |