diff options
author | Julien Dessaux | 2024-03-22 01:13:34 +0100 |
---|---|---|
committer | Julien Dessaux | 2024-03-27 15:21:37 +0100 |
commit | 7e27a0a7eada373780a9757fd89f70d4d911d69a (patch) | |
tree | 8b660bde99d5f9b4ae4f9e9caea4b51f19931dbe /haskell/src/SpaceTraders.hs | |
parent | [node] begin the great typescript rewrite (diff) | |
download | spacetraders-7e27a0a7eada373780a9757fd89f70d4d911d69a.tar.gz spacetraders-7e27a0a7eada373780a9757fd89f70d4d911d69a.tar.bz2 spacetraders-7e27a0a7eada373780a9757fd89f70d4d911d69a.zip |
[haskell] refactoring
Diffstat (limited to 'haskell/src/SpaceTraders.hs')
-rw-r--r-- | haskell/src/SpaceTraders.hs | 19 |
1 files changed, 8 insertions, 11 deletions
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 |