Eta-reduction for randomRange.

[avoidance.git] / src / Game.hs

diff --git a/src/Game.hs b/src/Game.hs
index 670f992..3bd4ab6 100644 (file)
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -144,7 +144,7 @@ randomResult :: (Random a) => RandomState a
 randomResult = randomAction random
 
 randomRange :: (Random a) => (a, a) -> RandomState a
-randomRange bounds = randomAction $ G.getRandom bounds
+randomRange = randomAction . G.getRandom
 
 enemyStartPosition :: Direction -> RandomState G.Coords
 enemyStartPosition U = randomRange (fst topLeftBoundary, fst bottomRightBoundary) >>= \column -> return (snd bottomRightBoundary, column)