HStoreList.hs

{-# LANGUAGE DeriveDataTypeable, DeriveGeneric, TupleSections #-}
import           Data.Typeable
import           Data.Aeson as Aeson
import           Data.Text (Text)
import           GHC.Generics
import qualified Data.HashMap.Lazy as LHM

newtype HStoreList = HStoreList {fromHStoreList :: [(Text,Text)]} deriving (Typeable, Eq, Show, Generic)

instance FromJSON HStoreList where
  parseJSON =
    withObject "Key-Value pair" $ \hm ->
      HStoreList <$> (traverse (\(k, v) -> (k,) <$> withText "Text" pure v) (LHM.toList hm))