mediaQueryParser :: Parser NestedBlock
mediaQueryParser = do
    _ <- char '@'
    sel <- strip <$> takeWhile (\c -> c /= '{' && c /= '}')
    _ <- char '{'
    blocks <- nestedBlocksParser
    skipWS
    _ <- char '}'
    return $ NestedBlock ("@" `append` sel) $ blocks
mediaQueryParser :: Parser NestedBlock
mediaQueryParser = do
    _ <- char '@'
    sel <- strip <$> takeWhile (\c -> c /= '{' && c /= '}')
    _ <- char '{'
    blocks <- nestedBlocksParser
    skipWS
    _ <- char '}'
    return $ NestedBlock ("@" `append` sel) $ blocks
mediaQueryParser = do
    _ <- char '@'
    sel <- strip <$> takeWhile (\c -> c /= '{' && c /= '}')
    _ <- char '{'
    blocks <- nestedBlocksParser
    skipWS
    _ <- char '}'
    return $ NestedBlock ("@" `append` sel) $ blocks