diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-16 01:14:15 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-16 01:14:15 +0000 |
| commit | 9ae1088fd211df4796dcd0a99c048e09a7c61d51 (patch) | |
| tree | eb787efc4643c897ef3a87e359e8e937f250cc5b /src/Haddock/Backends/Xhtml/Utils.hs | |
| parent | 0a53f7fd06815ea995b000ce0194c9c296772453 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Utils.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Utils.hs b/src/Haddock/Backends/Xhtml/Utils.hs index f0b6941c..3fd461fd 100644 --- a/src/Haddock/Backends/Xhtml/Utils.hs +++ b/src/Haddock/Backends/Xhtml/Utils.hs @@ -67,7 +67,7 @@ spliceURL maybe_file maybe_mod maybe_name maybe_loc url = run url run ('%':'N':rest) = name ++ run rest run ('%':'K':rest) = kind ++ run rest run ('%':'L':rest) = line ++ run rest - run ('%':'%':rest) = "%" ++ run rest + run ('%':'%':rest) = "%" ++ run rest run ('%':'{':'M':'O':'D':'U':'L':'E':'}':rest) = mdl ++ run rest run ('%':'{':'F':'I':'L':'E':'}':rest) = file ++ run rest |