From: Ian Lynagh <igloo@earth.li>
Date: Mon, 29 Dec 2008 19:14:30 +0000 (+0000)
Subject: Remove dead code from HaddockUtils
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=91c489b865e64bcdc48e024f675fe2bb1412889f

Remove dead code from HaddockUtils
---

diff --git a/compiler/parser/HaddockUtils.hs b/compiler/parser/HaddockUtils.hs
index abc31e1..0275e79 100644
--- a/compiler/parser/HaddockUtils.hs
+++ b/compiler/parser/HaddockUtils.hs
@@ -146,18 +146,6 @@ parseKey key toParse0 =
             in
                (c:line,rest)
          
-
-      -- indentation returns characters after last newline.
-      indentation :: String -> String
-      indentation s = fromMaybe s (indentation0 s)
-         where
-            indentation0 :: String -> Maybe String
-            indentation0 [] = Nothing
-            indentation0 (c:cs) =
-               case indentation0 cs of
-                  Nothing -> if c == '\n' then Just cs else Nothing
-                  in0 -> in0
-               
       -- comparison is case-insensitive.
       extractPrefix :: String -> String -> Maybe String
       extractPrefix [] s = Just s