From 8371c6389ea42280eb202acd16bf33e4fc036555 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 28 Nov 2009 15:07:31 +0000 Subject: [PATCH] Whitespace only --- compiler/basicTypes/SrcLoc.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs index 35c78a8..20e1bca 100644 --- a/compiler/basicTypes/SrcLoc.lhs +++ b/compiler/basicTypes/SrcLoc.lhs @@ -136,7 +136,7 @@ srcLocCol _other = panic "srcLocCol: unknown col" advanceSrcLoc :: SrcLoc -> Char -> SrcLoc advanceSrcLoc (SrcLoc f l _) '\n' = SrcLoc f (l + 1) 1 advanceSrcLoc (SrcLoc f l c) _ = SrcLoc f l (c + 1) -advanceSrcLoc loc _ = loc -- Better than nothing +advanceSrcLoc loc _ = loc -- Better than nothing \end{code} %************************************************************************ -- 1.7.10.4