src/server/Model/Json/PaymentId.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{-# LANGUAGE DeriveGeneric #-}

module Model.Json.PaymentId
  ( PaymentId(..)
  ) where

import Data.Aeson
import GHC.Generics

import qualified Model.Database as D

data PaymentId = PaymentId
  { id :: D.PaymentId
  } deriving (Show, Generic)

instance FromJSON PaymentId
instance ToJSON PaymentId