[commit: ghc] master: 80 columns (ef89860)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ef89860cb51f4d456caf924f9f9075b2b95ccc52/ghc

>---------------------------------------------------------------

commit ef89860cb51f4d456caf924f9f9075b2b95ccc52
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Nov 21 09:50:34 2013 +0000

    80 columns


>---------------------------------------------------------------

ef89860cb51f4d456caf924f9f9075b2b95ccc52
 compiler/coreSyn/CorePrep.lhs |   16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/coreSyn/CorePrep.lhs b/compiler/coreSyn/CorePrep.lhs
index 1a21253..5e0cd65 100644
--- a/compiler/coreSyn/CorePrep.lhs
+++ b/compiler/coreSyn/CorePrep.lhs
@@ -807,15 +807,15 @@ ignoreTickish _ = False
 
 cpe_ExprIsTrivial :: CoreExpr -> Bool
 -- Version that doesn't consider an scc annotation to be trivial.
-cpe_ExprIsTrivial (Var _)                  = True
-cpe_ExprIsTrivial (Type _)                 = True
-cpe_ExprIsTrivial (Coercion _)             = True
-cpe_ExprIsTrivial (Lit _)                  = True
-cpe_ExprIsTrivial (App e arg)              = isTypeArg arg && cpe_ExprIsTrivial e
-cpe_ExprIsTrivial (Tick t e)             = not (tickishIsCode t) && cpe_ExprIsTrivial e
-cpe_ExprIsTrivial (Cast e _)               = cpe_ExprIsTrivial e
+cpe_ExprIsTrivial (Var _)        = True
+cpe_ExprIsTrivial (Type _)       = True
+cpe_ExprIsTrivial (Coercion _)   = True
+cpe_ExprIsTrivial (Lit _)        = True
+cpe_ExprIsTrivial (App e arg)    = isTypeArg arg && cpe_ExprIsTrivial e
+cpe_ExprIsTrivial (Tick t e)     = not (tickishIsCode t) && cpe_ExprIsTrivial e
+cpe_ExprIsTrivial (Cast e _)     = cpe_ExprIsTrivial e
 cpe_ExprIsTrivial (Lam b body) | isTyVar b = cpe_ExprIsTrivial body
-cpe_ExprIsTrivial _                        = False
+cpe_ExprIsTrivial _              = False
 \end{code}
 
 -- -----------------------------------------------------------------------------