sectionHeader :: Parser (Section, Text)
sectionHeader = do
  pre  <- blanks
  name <- char '[' *> sectionName <* char ']'
  post  <- blanks
  endOfLine <|> endOfInput
  return (Section name, Text.concat [pre, "[", name, "]", post])
sectionHeader :: Parser (Section, Text)
sectionHeader = do
  pre  <- blanks
  name <- char '[' *> sectionName <* char ']'
  post  <- blanks
  endOfLine <|> endOfInput
  return (Section name, Text.concat [pre, "[", name, "]", post])
sectionHeader = do
  pre  <- blanks
  name <- char '[' *> sectionName <* char ']'
  post  <- blanks
  endOfLine <|> endOfInput
  return (Section name, Text.concat [pre, "[", name, "]", post])