From 7e27a0a7eada373780a9757fd89f70d4d911d69a Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 22 Mar 2024 01:13:34 +0100
Subject: [haskell] refactoring

---
 haskell/src/SpaceTraders/Model/Ship.hs | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

(limited to 'haskell/src/SpaceTraders/Model/Ship.hs')

diff --git a/haskell/src/SpaceTraders/Model/Ship.hs b/haskell/src/SpaceTraders/Model/Ship.hs
index 2ec54f1..522276c 100644
--- a/haskell/src/SpaceTraders/Model/Ship.hs
+++ b/haskell/src/SpaceTraders/Model/Ship.hs
@@ -1,34 +1,33 @@
 {-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE DeriveGeneric  #-}
 
 module SpaceTraders.Model.Ship
   ( Ship(..)
   ) where
 
-import Data.Aeson
-import GHC.Generics
-import qualified Data.Text as T
+import           Data.Aeson
+import qualified Data.Text                as T
+import           GHC.Generics
 
-import SpaceTraders.Model.Cargo
-import SpaceTraders.Model.Fuel
-import SpaceTraders.Model.Nav
+import           SpaceTraders.Model.Cargo
+import           SpaceTraders.Model.Fuel
+import           SpaceTraders.Model.Nav
 
-data Ship = Ship { cargo :: Cargo
+data Ship = Ship { cargo    :: Cargo
                  , cooldown :: Cooldown
                  --, crew :: Crew
                  --, engine :: Engine
                  --, frame :: Frame
-                 , fuel :: Fuel
+                 , fuel     :: Fuel
                  --, modules :: [Module]
                  --, mounts :: [Mount]
-                 , nav :: Nav
+                 , nav      :: Nav
                  --, reactor :: Reactor
                  --, registration :: Registration
-                 , symbol :: T.Text
+                 , symbol   :: T.Text
                  } deriving (FromJSON, Generic, Show, ToJSON)
 
-data Cooldown = Cooldown { shipSymbol :: T.Text
-                         , totalSeconds :: Int
+data Cooldown = Cooldown { shipSymbol       :: T.Text
+                         , totalSeconds     :: Int
                          , remainingSeconds :: Int
                          } deriving (FromJSON, Generic, Show, ToJSON)
-- 
cgit v1.2.3