From 500772f2f90c1b4f4c2a850b5db050185dbca5f2 Mon Sep 17 00:00:00 2001 From: justin Date: Sat, 7 Jun 2025 10:08:20 +0100 Subject: [PATCH] Add exports --- src/Dodge/Creature/Damage.hs | 5 +---- src/Dodge/PosEvent.hs | 2 +- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/src/Dodge/Creature/Damage.hs b/src/Dodge/Creature/Damage.hs index ec4d1ed71..7b1d9e697 100644 --- a/src/Dodge/Creature/Damage.hs +++ b/src/Dodge/Creature/Damage.hs @@ -1,4 +1,4 @@ -module Dodge.Creature.Damage where +module Dodge.Creature.Damage (applyCreatureDamage) where import Dodge.Creature.Material import Dodge.Creature.Mass @@ -9,9 +9,6 @@ import Dodge.Spark import Geometry import LensHelp -applyNoDamage :: [Damage] -> Creature -> World -> World -applyNoDamage _ _ = id - applyCreatureDamage :: [Damage] -> Creature -> World -> World applyCreatureDamage dms cr = case crMaterial (cr ^. crType) of Flesh -> defaultApplyDamage dms cr diff --git a/src/Dodge/PosEvent.hs b/src/Dodge/PosEvent.hs index 049826e9a..48a7edfc0 100644 --- a/src/Dodge/PosEvent.hs +++ b/src/Dodge/PosEvent.hs @@ -1,4 +1,4 @@ -module Dodge.PosEvent where +module Dodge.PosEvent (updatePosEvent) where import Control.Monad.State import Dodge.Data.World