[commit: ghc] master: Formatting wibbles (2a7217e)

[Manuel Chakravarty]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/2a7217e3fa39410ac61e17f5c8e2ce3976bec1a9

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

commit 2a7217e3fa39410ac61e17f5c8e2ce3976bec1a9
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
Date:   Fri Aug 17 12:11:32 2012 +1000

    Formatting wibbles

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

 compiler/vectorise/Vectorise/Env.hs |   24 ++++++++++++------------
 1 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/compiler/vectorise/Vectorise/Env.hs b/compiler/vectorise/Vectorise/Env.hs
index a887e77..d58ec8f 100644
--- a/compiler/vectorise/Vectorise/Env.hs
+++ b/compiler/vectorise/Vectorise/Env.hs
@@ -49,29 +49,29 @@ data Scope a b
 -- |The local environment.
 --
 data LocalEnv
-  = LocalEnv {
-        -- Mapping from local variables to their vectorised and lifted versions.
-            local_vars    :: VarEnv (Var, Var)
+        = LocalEnv
+        { local_vars      :: VarEnv (Var, Var)
+          -- ^Mapping from local variables to their vectorised and lifted versions.
 
-        -- In-scope type variables.
         , local_tyvars    :: [TyVar]
+          -- ^In-scope type variables.
 
-        -- Mapping from tyvars to their PA dictionaries.
         , local_tyvar_pa  :: VarEnv CoreExpr
+          -- ^Mapping from tyvars to their PA dictionaries.
 
-        -- Local binding name.
         , local_bind_name :: FastString
+          -- ^Local binding name.
         }
 
 -- |Create an empty local environment.
 --
 emptyLocalEnv :: LocalEnv
-emptyLocalEnv = LocalEnv {
-                   local_vars     = emptyVarEnv
-                 , local_tyvars   = []
-                 , local_tyvar_pa = emptyVarEnv
-                 , local_bind_name  = fsLit "fn"
-                 }
+emptyLocalEnv = LocalEnv
+                { local_vars      = emptyVarEnv
+                , local_tyvars    = []
+                , local_tyvar_pa  = emptyVarEnv
+                , local_bind_name = fsLit "fn"
+                }
 
 
 -- GlobalEnv ------------------------------------------------------------------