Add a blank line
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 22 Apr 2015 06:48:18 +0000 (07:48 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 22 Apr 2015 08:46:30 +0000 (09:46 +0100)
compiler/coreSyn/CoreArity.hs

index 47c8085..79e3463 100644 (file)
@@ -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]