diff options
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 |