diff options
Diffstat (limited to 'haskell/src/SpaceTraders/Model/Nav.hs')
-rw-r--r-- | haskell/src/SpaceTraders/Model/Nav.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/haskell/src/SpaceTraders/Model/Nav.hs b/haskell/src/SpaceTraders/Model/Nav.hs new file mode 100644 index 0000000..1c23ca1 --- /dev/null +++ b/haskell/src/SpaceTraders/Model/Nav.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} + +module SpaceTraders.Model.Nav + ( Nav(..) + ) where + +import Data.Aeson +import GHC.Generics +import qualified Data.Text as T + +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) |