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.hs | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

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

diff --git a/haskell/src/SpaceTraders.hs b/haskell/src/SpaceTraders.hs
index 5bd7526..19d55d0 100644
--- a/haskell/src/SpaceTraders.hs
+++ b/haskell/src/SpaceTraders.hs
@@ -1,6 +1,3 @@
-{-# LANGUAGE NumericUnderscores #-}
-{-# LANGUAGE OverloadedStrings #-}
-
 module SpaceTraders
   ( SpaceTradersT
   , microSinceEpoch
@@ -16,13 +13,13 @@ module SpaceTraders
   , liftIO
   ) where
 
-import Control.Monad.IO.Class
-import Control.Monad.Reader
-import Data.IORef
-import Data.Time.Clock
-import Data.Time.Clock.POSIX
+import           Control.Monad.IO.Class
+import           Control.Monad.Reader
+import           Data.IORef
+import           Data.Time.Clock
+import           Data.Time.Clock.POSIX
 import qualified Database.SQLite.Simple as S
-import Network.HTTP.Simple
+import           Network.HTTP.Simple
 
 type SpaceTradersT a = ReaderT Env IO a
 
@@ -39,9 +36,9 @@ microSinceEpoch = do
   t <- getCurrentTime
   return $ floor . (1e6 *) . nominalDiffTimeToSeconds $ utcTimeToPOSIXSeconds t
 
-data Env = Env { envConn :: S.Connection
+data Env = Env { envConn        :: S.Connection
                , envLastAPICall :: IORef Integer
-               , envRequest :: Request }
+               , envRequest     :: Request }
 
 class HasDatabaseConn a where
   getConn :: a -> S.Connection
-- 
cgit v1.2.3