Simple query parameter parser

URIParser.hs

{-|
Module      : URIParser
Copyright   : (c) 2016 Julien Tanguy
License     : BSD3

Maintainer  : julien.tanguy@jhome.fr
Stability   : experimental
Portability : portable

Simple URI parser. Parses query string parameters into a map 

-}
module URIParser where

--------------------- 
import Text.Trifecta
-------- OR ---------
-- import Text.Parsec
-- import Text.Parsec.String
---------------------

type QueryMap = [(String,String)]

queryStringParser :: Parser QueryMap
queryStringParser = anyChar `manyTill` string "?" *> keyValue `sepBy` string "&" <* eof

keyValue :: Parser (String, String)
keyValue = (,) <$> key <*> (string "=" *> value)

key :: Parser String
key = many alphaNum

value :: Parser String
value = many alphaNum