aboutsummaryrefslogtreecommitdiff
path: root/src/Game/Entities
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2024-05-17 12:39:14 +0100
committerJuan J. Martinez <jjm@usebox.net>2024-05-17 12:39:14 +0100
commit74298ef8ff9c3730d56b123e59b14ee0b8778772 (patch)
tree3789a8d6df93013bdbee3604b320e074169b2ca8 /src/Game/Entities
parente44005c482d86aa30739ac97ad11e2c7c0fd0238 (diff)
downloadspace-plat-hs-74298ef8ff9c3730d56b123e59b14ee0b8778772.tar.gz
space-plat-hs-74298ef8ff9c3730d56b123e59b14ee0b8778772.zip
formattingHEADmain
Diffstat (limited to 'src/Game/Entities')
-rw-r--r--src/Game/Entities/Blast.hs2
-rw-r--r--src/Game/Entities/Common.hs2
-rw-r--r--src/Game/Entities/Effect.hs2
-rw-r--r--src/Game/Entities/Entry.hs2
-rw-r--r--src/Game/Entities/Exit.hs2
-rw-r--r--src/Game/Entities/Pickup.hs2
-rw-r--r--src/Game/Entities/Player.hs4
-rw-r--r--src/Game/Entities/Robot.hs2
-rw-r--r--src/Game/Entities/Runner.hs2
-rw-r--r--src/Game/Entities/Shooter.hs2
-rw-r--r--src/Game/Entities/Slime.hs2
-rw-r--r--src/Game/Entities/Tracker.hs2
-rw-r--r--src/Game/Entities/Types.hs2
13 files changed, 14 insertions, 14 deletions
diff --git a/src/Game/Entities/Blast.hs b/src/Game/Entities/Blast.hs
index 6e9fec2..6f3c890 100644
--- a/src/Game/Entities/Blast.hs
+++ b/src/Game/Entities/Blast.hs
@@ -3,7 +3,7 @@ module Game.Entities.Blast (mkBlast) where
import Data.Bits (Bits (..))
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
mkBlast :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IO Entity
mkBlast sprites x y dir playerCollision isBlocked = do
diff --git a/src/Game/Entities/Common.hs b/src/Game/Entities/Common.hs
index 8fa7fe3..0ccfdf5 100644
--- a/src/Game/Entities/Common.hs
+++ b/src/Game/Entities/Common.hs
@@ -13,7 +13,7 @@ where
import Data.IORef
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
-- | Return the opposite direction.
turn :: Dir -> Dir
diff --git a/src/Game/Entities/Effect.hs b/src/Game/Entities/Effect.hs
index 6f056d8..682ce0f 100644
--- a/src/Game/Entities/Effect.hs
+++ b/src/Game/Entities/Effect.hs
@@ -3,7 +3,7 @@ module Game.Entities.Effect (mkEffect) where
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
mkEffect :: S.SpriteSheet -> Int -> Int -> String -> IO Entity
mkEffect sprites x y name = do
diff --git a/src/Game/Entities/Entry.hs b/src/Game/Entities/Entry.hs
index 18e29df..d1b5c10 100644
--- a/src/Game/Entities/Entry.hs
+++ b/src/Game/Entities/Entry.hs
@@ -3,7 +3,7 @@ module Game.Entities.Entry (mkEntry) where
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
openingDoorSet :: Int
openingDoorSet = 2
diff --git a/src/Game/Entities/Exit.hs b/src/Game/Entities/Exit.hs
index f5e01a8..9c8bf82 100644
--- a/src/Game/Entities/Exit.hs
+++ b/src/Game/Entities/Exit.hs
@@ -3,7 +3,7 @@ module Game.Entities.Exit (mkExit) where
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
closingDoorSet :: Int
closingDoorSet = 1
diff --git a/src/Game/Entities/Pickup.hs b/src/Game/Entities/Pickup.hs
index 7d6022c..95b8e25 100644
--- a/src/Game/Entities/Pickup.hs
+++ b/src/Game/Entities/Pickup.hs
@@ -3,7 +3,7 @@ module Game.Entities.Pickup (mkBattery) where
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
mkBattery :: S.SpriteSheet -> Int -> Int -> Collision -> IO Entity
mkBattery sprites x y playerCollision = do
diff --git a/src/Game/Entities/Player.hs b/src/Game/Entities/Player.hs
index 72de1bb..097d159 100644
--- a/src/Game/Entities/Player.hs
+++ b/src/Game/Entities/Player.hs
@@ -1,11 +1,11 @@
module Game.Entities.Player (mkPlayer, dyingSet) where
import Data.IORef
-import qualified Game.Controller as C
+import Game.Controller qualified as C
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
dyingSet :: Int
dyingSet = 2
diff --git a/src/Game/Entities/Robot.hs b/src/Game/Entities/Robot.hs
index 5cc9d70..94e721d 100644
--- a/src/Game/Entities/Robot.hs
+++ b/src/Game/Entities/Robot.hs
@@ -4,7 +4,7 @@ import Data.Bits (Bits (..))
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
mkRobot :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IO Entity
mkRobot sprites x y d playerCollision isBlocked = do
diff --git a/src/Game/Entities/Runner.hs b/src/Game/Entities/Runner.hs
index 288f2b4..76f0db2 100644
--- a/src/Game/Entities/Runner.hs
+++ b/src/Game/Entities/Runner.hs
@@ -4,7 +4,7 @@ import Data.Bits (Bits (..))
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
import System.Random (randomRIO)
mkRunner :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IsBlocked -> IO Entity
diff --git a/src/Game/Entities/Shooter.hs b/src/Game/Entities/Shooter.hs
index 6e9675f..3a085e4 100644
--- a/src/Game/Entities/Shooter.hs
+++ b/src/Game/Entities/Shooter.hs
@@ -4,7 +4,7 @@ import Data.Bits (Bits (..))
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
blasterCoolDown :: Int
blasterCoolDown = 128
diff --git a/src/Game/Entities/Slime.hs b/src/Game/Entities/Slime.hs
index 0cc805b..fdae057 100644
--- a/src/Game/Entities/Slime.hs
+++ b/src/Game/Entities/Slime.hs
@@ -4,7 +4,7 @@ import Data.Bits (Bits (..))
import Game.Entities.Common
import Game.Entities.Const
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
mkSlime :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IO Entity
mkSlime sprites x y d playerCollision isBlocked = do
diff --git a/src/Game/Entities/Tracker.hs b/src/Game/Entities/Tracker.hs
index 9baac80..f60fc20 100644
--- a/src/Game/Entities/Tracker.hs
+++ b/src/Game/Entities/Tracker.hs
@@ -3,7 +3,7 @@ module Game.Entities.Tracker (mkTracker) where
import Game.Entities.Const
import Game.Entities.Runner
import Game.Entities.Types
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
mkTracker :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> Collision -> IsBlocked -> IsBlocked -> IO Entity
mkTracker sprites x y d playerCollision facingPlayerLower isBlocked isBlockedDeadly = do
diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs
index 765800f..8d78f22 100644
--- a/src/Game/Entities/Types.hs
+++ b/src/Game/Entities/Types.hs
@@ -11,7 +11,7 @@ module Game.Entities.Types
where
import Data.IORef
-import qualified Game.Sprites as S
+import Game.Sprites qualified as S
data Dir = DirRight | DirLeft deriving (Eq, Show, Ord)