diff options
| author | Sebastian Méric de Bellefon <arnaudpourseb@gmail.com> | 2016-05-28 17:28:15 -0400 |
|---|---|---|
| committer | Sebastian Méric de Bellefon <arnaudpourseb@gmail.com> | 2016-05-28 17:28:15 -0400 |
| commit | ef0993f8905b88339202339789c0a6432e28da77 (patch) | |
| tree | ca5eee062ba5a0907dd9a8533be7261be12cbfca /haddock-api/src/Haddock/Interface | |
| parent | b0b23711fadb0ef2a7b0ade55286097bfa76e9ca (diff) | |
| parent | f6e5d57bee5a7bf5d74d26982db64fa8a56f17bd (diff) | |
Merge pull request #504 from Helkafen/issue-280
Fix #280. Parsing of module header
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/ParseModuleHeader.hs | 2 |
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 |