From: simonpj <unknown>
Date: Thu, 1 Mar 2001 17:08:31 +0000 (+0000)
Subject: [project @ 2001-03-01 17:08:31 by simonpj]
X-Git-Tag: Approximately_9120_patches~2492
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=76258fba6c276213d210cfa14632d8f6a9ff5062;p=ghc-hetmet.git

[project @ 2001-03-01 17:08:31 by simonpj]
Formatting only
---

diff --git a/ghc/compiler/basicTypes/Var.lhs b/ghc/compiler/basicTypes/Var.lhs
index 2d9f068..a7c4e3c 100644
--- a/ghc/compiler/basicTypes/Var.lhs
+++ b/ghc/compiler/basicTypes/Var.lhs
@@ -250,8 +250,8 @@ modifyIdInfo fn var@(Var {varInfo = info})
 -- maybeModifyIdInfo tries to avoid unnecesary thrashing
 maybeModifyIdInfo :: (IdInfo -> Maybe IdInfo) -> Id -> Id
 maybeModifyIdInfo fn var@(Var {varInfo = info}) = case fn info of
-						Nothing       -> var
-						Just new_info -> var {varInfo = new_info}
+							Nothing       -> var
+							Just new_info -> var {varInfo = new_info}
 \end{code}
 
 \begin{code}