From 40bdc70f8b648a8dd8cfe8f7e97df6fec2ed2e86 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 27 Apr 2010 10:28:00 +0900
Subject: [PATCH] cosmetic change.

---
 Browse.hs | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/Browse.hs b/Browse.hs
index 2b376b3..c8bd066 100644
--- a/Browse.hs
+++ b/Browse.hs
@@ -61,14 +61,14 @@ anyName = many1 . oneOf $ ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "_'#"
 
 manyBefore :: Show tok => GenParser tok st a -> GenParser tok st [tok] -> GenParser tok st [a]
 manyBefore p anchor = manyTill p (eof <|> try anc)
-    where
-      anc = do
-          pos <- getPosition
-          s <- anchor
-          ss <- getInput
-          setInput $ s ++ ss
-          setPosition pos
-          return ()
+  where
+    anc = do
+        pos <- getPosition
+        s <- anchor
+        ss <- getInput
+        setInput $ s ++ ss
+        setPosition pos
+        return ()
 
 keyword :: Parser String
 keyword = (++) <$> modName <*> string "."
@@ -78,8 +78,8 @@ ghcName = do
     keyword
     try sep <|> end
   where
-   sep = last <$> sepBy1 anyName (char '.')
-   end = "" <$ endBy1 anyName (char '.')
+    sep = last <$> sepBy1 anyName (char '.')
+    end = "" <$ endBy1 anyName (char '.')
 
 nonGhcName :: Parser String
 nonGhcName = (:) <$> anyChar <*> manyBefore anyChar keyword