blob: f6fda871dc7f638d4cbc47cb3924ab3c69d3d149 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# 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
|