section :: Parser (Either String (Section, ConfigSection))
section = do
  (name, renderedName) <- sectionHeader
  l <- sectionBody
  return $ (name,) `fmap` mkSection_ renderedName l
section :: Parser (Either String (Section, ConfigSection))
section = do
  (name, renderedName) <- sectionHeader
  l <- sectionBody
  return $ (name,) `fmap` mkSection_ renderedName l
section = do
  (name, renderedName) <- sectionHeader
  l <- sectionBody
  return $ (name,) `fmap` mkSection_ renderedName l