haskell/src/SpaceTraders/Model/Nav.hs


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

{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric  #-}

module SpaceTraders.Model.Nav
  ( Nav(..)
  ) where

import           Data.Aeson
import qualified Data.Text                as T
import           GHC.Generics

import           SpaceTraders.Model.Route

data Nav = Nav { flightMode     :: T.Text
               , route          :: Route
               , status         :: T.Text
               , systemSymbol   :: T.Text
               , waypointSymbol :: T.Text
               } deriving (FromJSON, Generic, Show, ToJSON)