diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-16 00:59:41 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-16 00:59:41 +0000 |
| commit | 0a53f7fd06815ea995b000ce0194c9c296772453 (patch) | |
| tree | f26f5eb62fa11a088363da0f0571cb2d03c85b4c /src/Haddock/Utils.hs | |
| parent | e3fc750872a65ba6cc7c859172f433cc31a89dd7 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index 94852100..be75e3e4 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -206,7 +206,7 @@ synopsisFrameName = "synopsis" subIndexHtmlFile :: String -> String subIndexHtmlFile ls = "doc-index-" ++ b ++ ".html" where b | all isAlpha ls = ls - | otherwise = concat (map (show . ord) ls) + | otherwise = concatMap (show . ord) ls ------------------------------------------------------------------------------- @@ -244,7 +244,7 @@ makeAnchorId [] = [] makeAnchorId (f:r) = escape isAlpha f ++ concatMap (escape isLegal) r where escape p c | p c = [c] - | otherwise = '-' : (show (ord c)) ++ "-" + | otherwise = '-' : show (ord c) ++ "-" isLegal ':' = True isLegal '_' = True isLegal '.' = True |