From 2a7217e3fa39410ac61e17f5c8e2ce3976bec1a9 Mon Sep 17 00:00:00 2001
From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Fri, 17 Aug 2012 12:11:32 +1000
Subject: [PATCH] Formatting wibbles

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

diff --git a/compiler/vectorise/Vectorise/Env.hs b/compiler/vectorise/Vectorise/Env.hs
index a887e7736f..d58ec8f800 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 ------------------------------------------------------------------
-- 
GitLab