aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorSebastian Méric de Bellefon <arnaudpourseb@gmail.com>2016-05-28 17:28:15 -0400
committerSebastian Méric de Bellefon <arnaudpourseb@gmail.com>2016-05-28 17:28:15 -0400
commitef0993f8905b88339202339789c0a6432e28da77 (patch)
treeca5eee062ba5a0907dd9a8533be7261be12cbfca /haddock-api
parentb0b23711fadb0ef2a7b0ade55286097bfa76e9ca (diff)
parentf6e5d57bee5a7bf5d74d26982db64fa8a56f17bd (diff)
Merge pull request #504 from Helkafen/issue-280
Fix #280. Parsing of module header
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Interface/ParseModuleHeader.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs b/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs
index e7d2a085..768a31ce 100644
--- a/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs
+++ b/haddock-api/src/Haddock/Interface/ParseModuleHeader.hs
@@ -76,7 +76,7 @@ parseKey :: String -> String -> Maybe (String,String)
parseKey key toParse0 =
do
let
- (spaces0,toParse1) = extractLeadingSpaces toParse0
+ (spaces0,toParse1) = extractLeadingSpaces (dropWhile (`elem` ['\r', '\n']) toParse0)
indentation = spaces0
afterKey0 <- extractPrefix key toParse1