Skip to content
Snippets Groups Projects
Commit bc2fd7c3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Whitespace only

parent 52d16a62
No related branches found
No related tags found
No related merge requests found
...@@ -31,16 +31,16 @@ type Refs = [(String,String)] ...@@ -31,16 +31,16 @@ type Refs = [(String,String)]
expandAllRefs r ls = expandAll1 r False ls expandAllRefs r ls = expandAll1 r False ls
expandAll1 r table [] = [] expandAll1 r table [] = []
expandAll1 r table (l:ls) | l == "#table" = expandAll1 r True ls expandAll1 r table (l:ls) | l == "#table" = expandAll1 r True ls
| l == "#endtable" = expandAll1 r False ls | l == "#endtable" = expandAll1 r False ls
| table = ("<tr><td><tt>" ++ nbspaces (expandRefs r l) | table = ("<tr><td><tt>" ++ nbspaces (expandRefs r l)
++ "</tt></td></tr>") : rest ++ "</tt></td></tr>") : rest
| otherwise = (expandRefs r l) : rest | otherwise = (expandRefs r l) : rest
where rest = expandAll1 r table ls where rest = expandAll1 r table ls
expandRefs :: Refs -> String -> String expandRefs :: Refs -> String -> String
expandRefs r "" = "" expandRefs r "" = ""
expandRefs r ('#':l) = expandRef r "" l expandRefs r ('#':l) = expandRef r "" l
expandRefs r (c:cs) = c : expandRefs r cs expandRefs r (c:cs) = c : expandRefs r cs
expandRef r txt ('V':l) = expandVar r txt (parseRef l) expandRef r txt ('V':l) = expandVar r txt (parseRef l)
...@@ -79,8 +79,8 @@ expandSect r txt (s,rest) = let n = mangleSect s ...@@ -79,8 +79,8 @@ expandSect r txt (s,rest) = let n = mangleSect s
expandLink r _ (t,'#':l') = expandRef r t l' expandLink r _ (t,'#':l') = expandRef r t l'
expandLink r _ (l,l') = error ("Bad link: " ++ l ++ l' ++ "\n") expandLink r _ (l,l') = error ("Bad link: " ++ l ++ l' ++ "\n")
trySig r txt v rest n = trySig r txt v rest n =
let c = parseClass rest let c = parseClass rest
n = mangleTycon c n = mangleTycon c
f = lookup n r in f = lookup n r in
anchor v f n txt ++ expandRefs r rest anchor v f n txt ++ expandRefs r rest
...@@ -102,7 +102,7 @@ mangleInstance c t = "$i" ++ mangleName c ++ "$$" ++ mangleName t ...@@ -102,7 +102,7 @@ mangleInstance c t = "$i" ++ mangleName c ++ "$$" ++ mangleName t
mangleSect s = "sect" ++ s mangleSect s = "sect" ++ s
mangleName r = concat $ mangleName r = concat $
map (\c -> case c of '(' -> "$P" map (\c -> case c of '(' -> "$P"
')' -> "$C" ')' -> "$C"
'-' -> "$D" '-' -> "$D"
...@@ -144,7 +144,7 @@ parseKV l = let (k,l1) = span (/= '=') l ...@@ -144,7 +144,7 @@ parseKV l = let (k,l1) = span (/= '=') l
parseClass s = let s1 = (skip "(" . skip "::") s parseClass s = let s1 = (skip "(" . skip "::") s
(c,_) = span isAlpha (trim s1) in (c,_) = span isAlpha (trim s1) in
c c
trim s = dropWhile isSpace s trim s = dropWhile isSpace s
trimr s = reverse (dropWhile isSpace (reverse s)) trimr s = reverse (dropWhile isSpace (reverse s))
...@@ -157,7 +157,7 @@ skip val s = if val `starts` (trim s) then ...@@ -157,7 +157,7 @@ skip val s = if val `starts` (trim s) then
drop (length val) (trim s) drop (length val) (trim s)
else s else s
htmlEncode '>' = "&gt;" htmlEncode '>' = "&gt;"
htmlEncode '<' = "&lt;" htmlEncode '<' = "&lt;"
htmlEncode '&' = "&amp;" htmlEncode '&' = "&amp;"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment