blocksParser :: Parser [(Text, [(Text, Text)])]
blocksParser =  skipWS *> blockParser `sepBy` skipWS <* skipWS
blocksParser :: Parser [(Text, [(Text, Text)])]
blocksParser =  skipWS *> blockParser `sepBy` skipWS <* skipWS
blocksParser =  skipWS *> blockParser `sepBy` skipWS <* skipWS