defaultSection :: Parser (Maybe (Either String (Section, ConfigSection)))
defaultSection = do
  l <- sectionBody
  case l of
    [] -> return Nothing
    _  -> return $ Just $ (defaultSectionName,) `fmap` mkSection_ (toText defaultSectionName) l
defaultSection :: Parser (Maybe (Either String (Section, ConfigSection)))
defaultSection = do
  l <- sectionBody
  case l of
    [] -> return Nothing
    _  -> return $ Just $ (defaultSectionName,) `fmap` mkSection_ (toText defaultSectionName) l
defaultSection = do
  l <- sectionBody
  case l of
    [] -> return Nothing
    _  -> return $ Just $ (defaultSectionName,) `fmap` mkSection_ (toText defaultSectionName) l