module Data.Factual.Query.MatchQuery
(
MatchQuery(..)
, MatchValue(..)
) where
import Data.Factual.Query
import Data.Factual.Utils
import qualified Data.Map as M
data MatchValue = MatchStr String String
| MatchNum String Double
deriving Eq
instance Show MatchValue where
show (MatchStr name str) = (show name) ++ ":" ++ (show str)
show (MatchNum name num) = (show name) ++ ":" ++ (show num)
data MatchQuery = MatchQuery [MatchValue] deriving Eq
instance Query MatchQuery where
path _ = "/places/match"
params (MatchQuery values) = M.fromList [("values", valuesString)]
where valuesString = "{" ++ (join "," $ map show values) ++ "}"