From 74298ef8ff9c3730d56b123e59b14ee0b8778772 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Fri, 17 May 2024 12:39:14 +0100 Subject: formatting --- src/Game/Entities/Blast.hs | 2 +- src/Game/Entities/Common.hs | 2 +- src/Game/Entities/Effect.hs | 2 +- src/Game/Entities/Entry.hs | 2 +- src/Game/Entities/Exit.hs | 2 +- src/Game/Entities/Pickup.hs | 2 +- src/Game/Entities/Player.hs | 4 ++-- src/Game/Entities/Robot.hs | 2 +- src/Game/Entities/Runner.hs | 2 +- src/Game/Entities/Shooter.hs | 2 +- src/Game/Entities/Slime.hs | 2 +- src/Game/Entities/Tracker.hs | 2 +- src/Game/Entities/Types.hs | 2 +- 13 files changed, 14 insertions(+), 14 deletions(-) (limited to 'src/Game/Entities') 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) -- cgit v1.2.3