src/server/Model/Json/Number.hs


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

{-# LANGUAGE DeriveGeneric #-}

module Model.Json.Number
  ( Number(..)
  ) where

import Data.Aeson
import GHC.Generics

data Number = Number
  { number :: Int
  } deriving (Show, Generic)

instance FromJSON Number
instance ToJSON Number