@@ -528,15 +528,15 @@ rawLaTeXEnvironment' = do
528528-- Tables
529529--
530530
531−-- | Parse a dashed line with optional trailing spaces; return its length
532−-- and the length including trailing space.
531+-- Parse a dashed line with optional trailing spaces; return its length
532+-- and the length including trailing space.
533533dashedLine ch = do
534534 dashes <- many1 (char ch)
535535 sp <- many spaceChar
536536 return $ (length dashes, length $ dashes ++ sp)
537537
538−-- | Parse a table header with dashed lines of '-' preceded by
539−-- one line of text.
538+-- Parse a table header with dashed lines of '-' preceded by
539+-- one line of text.
540540simpleTableHeader = do
541541 rawContent <- anyLine
542542 initSp <- nonindentSpaces
@@ -548,41 +548,41 @@ simpleTableHeader = do
548548 let aligns = zipWith alignType (map (\a -> [a]) rawHeads) lengths
549549 return $ (rawHeads, aligns, indices)
550550
551−-- | Parse a table footer - dashed lines followed by blank line.
551+-- Parse a table footer - dashed lines followed by blank line.
552552tableFooter = try $ do
553553 nonindentSpaces
554554 many1 (dashedLine '-')
555555 blanklines
556556
557−-- | Parse a table separator - dashed line.
557+-- Parse a table separator - dashed line.
558558tableSep = try $ do
559559 nonindentSpaces
560560 many1 (dashedLine '-')
561561 string "\n"
562562
563−-- | Parse a raw line and split it into chunks by indices.
563+-- Parse a raw line and split it into chunks by indices.
564564rawTableLine indices = do
565565 notFollowedBy' (blanklines <|> tableFooter)
566566 line <- many1Till anyChar newline
567567 return $ map removeLeadingTrailingSpace $ tail $
568568 splitByIndices (init indices) line
569569
570−-- | Parse a table line and return a list of lists of blocks (columns).
570+-- Parse a table line and return a list of lists of blocks (columns).
571571tableLine indices = try $ do
572572 rawline <- rawTableLine indices
573573 mapM (parseFromStr (many plain)) rawline
574574
575−-- | Parse a multiline table row and return a list of blocks (columns).
575+-- Parse a multiline table row and return a list of blocks (columns).
576576multilineRow indices = try $ do
577577 colLines <- many1 (rawTableLine indices)
578578 option "" blanklines
579579 let cols = map unlines $ transpose colLines
580580 mapM (parseFromStr (many plain)) cols
581581
582−-- | Calculate relative widths of table columns, based on indices
583−widthsFromIndices :: Int -- ^ Number of columns on terminal
584− -> [Int] -- ^ Indices
585− -> [Float] -- ^ Fractional relative sizes of columns
582+-- Calculate relative widths of table columns, based on indices
583+widthsFromIndices :: Int -- Number of columns on terminal
584+ -> [Int] -- Indices
585+ -> [Float] -- Fractional relative sizes of columns
586586widthsFromIndices _ [] = []
587587widthsFromIndices numColumns indices =
588588 let lengths = zipWith (-) indices (0:indices)
@@ -593,8 +593,8 @@ widthsFromIndices numColumns indices =
593593 fracs = map (\l -> (fromIntegral l) / quotient) lengths in
594594 tail fracs
595595
596−-- | Parses a table caption: inlines beginning with 'Table:'
597−-- and followed by blank lines
596+-- Parses a table caption: inlines beginning with 'Table:'
597+-- and followed by blank lines.
598598tableCaption = try $ do
599599 nonindentSpaces
600600 string "Table:"
@@ -602,7 +602,7 @@ tableCaption = try $ do
602602 blanklines
603603 return $ normalizeSpaces result
604604
605−-- | Parse a table using 'headerParser', 'lineParser', and 'footerParser'
605+-- Parse a table using 'headerParser', 'lineParser', and 'footerParser'.
606606tableWith headerParser lineParser footerParser = try $ do
607607 (rawHeads, aligns, indices) <- headerParser
608608 lines <- many1Till (lineParser indices) footerParser
@@ -613,13 +613,13 @@ tableWith headerParser lineParser footerParser = try $ do
613613 let widths = widthsFromIndices numColumns indices
614614 return $ Table caption aligns widths heads lines
615615
616−-- | Parse a simple table with '---' header and one line per row.
616+-- Parse a simple table with '---' header and one line per row.
617617simpleTable = tableWith simpleTableHeader tableLine blanklines
618618
619−-- | Parse a multiline table: starts with row of '-' on top, then header
620−-- (which may be multiline), then the rows,
621−-- which may be multiline, separated by blank lines, and
622−-- ending with a footer (dashed line followed by blank line).
619+-- Parse a multiline table: starts with row of '-' on top, then header
620+-- (which may be multiline), then the rows,
621+-- which may be multiline, separated by blank lines, and
622+-- ending with a footer (dashed line followed by blank line).
623623multilineTable = tableWith multilineTableHeader multilineRow tableFooter
624624
625625multilineTableHeader = try $ do
@@ -639,7 +639,7 @@ multilineTableHeader = try $ do
639639 return $ ((map removeLeadingTrailingSpace rawHeads),
640640 aligns, indices)
641641
642−-- | Returns the longest of a list of strings.
642+-- Returns the longest of a list of strings.
643643longest :: [String] -> String
644644longest [] = ""
645645longest [x] = x
@@ -648,9 +648,9 @@ longest (x:xs) =
648648 then x
649649 else longest xs
650650
651−-- | Returns an alignment type for a table, based on a list of strings
652−-- (the rows of the column header) and a number (the length of the
653−-- dashed line under the rows.
651+-- Returns an alignment type for a table, based on a list of strings
652+-- (the rows of the column header) and a number (the length of the
653+-- dashed line under the rows.
654654alignType :: [String] -> Int -> Alignment
655655alignType [] len = AlignDefault
656656alignType strLst len =