From 51705b930f8408c1a3f4706d0b172eb7970f20ba Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 23 Mar 2024 15:28:28 +0100
Subject: [haskell] implemented ship refueling

---
 haskell/src/SpaceTraders/Model/Ship.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'haskell/src/SpaceTraders/Model')

diff --git a/haskell/src/SpaceTraders/Model/Ship.hs b/haskell/src/SpaceTraders/Model/Ship.hs
index f42d558..f30679c 100644
--- a/haskell/src/SpaceTraders/Model/Ship.hs
+++ b/haskell/src/SpaceTraders/Model/Ship.hs
@@ -6,6 +6,7 @@ module SpaceTraders.Model.Ship
   ( Ship(..)
   , isDocked
   , isInOrbit
+  , overNinetyPercentFuel
   ) where
 
 import           Data.Aeson
@@ -40,3 +41,10 @@ isDocked ship = status (nav ship) == "DOCKED"
 
 isInOrbit :: Ship -> Bool
 isInOrbit = not . isDocked
+
+overNinetyPercentFuel :: Ship -> Bool
+overNinetyPercentFuel ship = curr * 10 > capa * 9
+  where
+    curr = current f
+    capa = SpaceTraders.Model.Fuel.capacity f
+    f = fuel ship
-- 
cgit v1.2.3