diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-04-06 16:02:57 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-04-06 17:10:46 +0100 |
| commit | 5df7cf32efd7d2200e3fd4f77825087095e1052f (patch) | |
| tree | c51915db83a1ea4910bdbc35c42e9b7fb558c331 /compiler/stgSyn | |
| parent | 872f2c8b652d0b76f67ca28516d63e85e91dff83 (diff) | |
| download | haskell-5df7cf32efd7d2200e3fd4f77825087095e1052f.tar.gz | |
Detab modules with tabs on 5 lines or fewer
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index 678136d439..ac253f3e95 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -7,13 +7,6 @@ And, as we have the info in hand, we may convert some lets to let-no-escapes. \begin{code} -{-# OPTIONS -fno-warn-tabs #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and --- detab the module (please do the detabbing in a separate patch). See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces --- for details - module CoreToStg ( coreToStg, coreExprToStg ) where #include "HsVersions.h" @@ -25,7 +18,7 @@ import StgSyn import Type import TyCon -import MkId ( coercionTokenId ) +import MkId ( coercionTokenId ) import Id import IdInfo import DataCon @@ -364,8 +357,8 @@ coreToStgExpr (Cast expr _) -- Cases require a little more real work. -coreToStgExpr (Case scrut _ _ []) - = coreToStgExpr scrut +coreToStgExpr (Case scrut _ _ []) + = coreToStgExpr scrut -- See Note [Empty case alternatives] in CoreSyn If the case -- alternatives are empty, the scrutinee must diverge or raise an -- exception, so we can just dive into it. @@ -374,7 +367,7 @@ coreToStgExpr (Case scrut _ _ []) -- belt-and-braces approach would be to move this case into the -- code generator, and put a return point anyway that calls a -- runtime system error function. - + coreToStgExpr (Case scrut bndr _ alts) = do (alts2, alts_fvs, alts_escs) @@ -422,7 +415,7 @@ coreToStgExpr (Case scrut bndr _ alts) = do where vars_alt (con, binders, rhs) | DataAlt c <- con, c == unboxedUnitDataCon - = -- This case is a bit smelly. + = -- This case is a bit smelly. -- See Note [Nullary unboxed tuple] in Type.lhs -- where a nullary tuple is mapped to (State# World#) ASSERT( null binders ) @@ -811,7 +804,7 @@ mkStgRhs rhs_fvs srt binder_info rhs assumptions (namely that they will be entered only once). upd_flag | isPAP env rhs = ReEntrant - | otherwise = Updatable + | otherwise = Updatable -} {- ToDo: |