From 91c489b865e64bcdc48e024f675fe2bb1412889f Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 29 Dec 2008 19:14:30 +0000 Subject: [PATCH] Remove dead code from HaddockUtils --- compiler/parser/HaddockUtils.hs | 12 ------------ 1 file changed, 12 deletions(-) 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 -- 1.7.10.4