nestedBlockParser :: Parser NestedBlock
nestedBlockParser = do
    mc <- peekChar
    case mc of
         Just '}' -> mzero
         _        -> try mediaQueryParser <|> (LeafBlock <$> blockParser)
nestedBlockParser :: Parser NestedBlock
nestedBlockParser = do
    mc <- peekChar
    case mc of
         Just '}' -> mzero
         _        -> try mediaQueryParser <|> (LeafBlock <$> blockParser)
nestedBlockParser = do
    mc <- peekChar
    case mc of
         Just '}' -> mzero
         _        -> try mediaQueryParser <|> (LeafBlock <$> blockParser)