module Data.Factual.Write.Clear
(
Clear(..)
, module Data.Factual.Shared.Table
) where
import Data.Factual.Write
import Data.Factual.Shared.Table
import Data.List.Utils (join)
import qualified Data.Map as M
data Clear = Clear { table :: Table
, factualId :: String
, fields :: [String]
, user :: String
} deriving (Eq, Show)
instance Write Clear where
path clear = (show $ table clear) ++ "/" ++ (factualId clear) ++ "/clear"
params _ = M.empty
body clear = M.fromList [ ("user", user clear)
, ("fields", join "," $ fields clear) ]