{-# LANGUAGE DeriveGeneric #-}

module Data.StandardErrorResponseData (StandardErrorResponse, makeStandardErrorResponse) where

import Data.Aeson
import Data.Aeson.TH
import GHC.Generics (Generic)

data StandardErrorResponse = StandardErrorResponse
  { errcode :: String -- TODO: Enum?
      , error :: String
  } deriving (Eq, Show, Generic)

instance FromJSON StandardErrorResponse where
instance ToJSON StandardErrorResponse where

makeStandardErrorResponse :: String -> String -> StandardErrorResponse
makeStandardErrorResponse = StandardErrorResponse