SQL query parser in Haskell