From 76258fba6c276213d210cfa14632d8f6a9ff5062 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 1 Mar 2001 17:08:31 +0000 Subject: [PATCH] [project @ 2001-03-01 17:08:31 by simonpj] Formatting only --- ghc/compiler/basicTypes/Var.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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} -- 1.7.10.4