21 lines
558 B
Haskell
21 lines
558 B
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module SpaceTraders.Model.Fuel
|
|
( Consumed(..)
|
|
, Fuel(..)
|
|
) where
|
|
|
|
import Data.Aeson
|
|
import Data.Time
|
|
import GHC.Generics
|
|
|
|
data Consumed = Consumed { amount :: Int
|
|
, timestamp :: UTCTime
|
|
} deriving (FromJSON, Generic, Show, ToJSON)
|
|
|
|
data Fuel = Fuel { capacity :: Int
|
|
, consumed :: Consumed
|
|
, current :: Int
|
|
} deriving (FromJSON, Generic, Show, ToJSON)
|