diff options
Diffstat (limited to 'haskell/src/SpaceTraders/Model/Fuel.hs')
-rw-r--r-- | haskell/src/SpaceTraders/Model/Fuel.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/haskell/src/SpaceTraders/Model/Fuel.hs b/haskell/src/SpaceTraders/Model/Fuel.hs new file mode 100644 index 0000000..ca17ebb --- /dev/null +++ b/haskell/src/SpaceTraders/Model/Fuel.hs @@ -0,0 +1,21 @@ +{-# 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) |