Commit bc2fd7c3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Whitespace only

parent 52d16a62
...@@ -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;"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment