From 0e36299a49e1f67f82aa787ecd7a998fecfd021a Mon Sep 17 00:00:00 2001 From: sabadev Date: Sun, 31 Jan 2021 21:54:04 -0500 Subject: [PATCH] Removed unnecessary typeclasses. --- src/Game.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Game.hs b/src/Game.hs index c9640fb..a0726c7 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -9,9 +9,9 @@ import qualified Terminal.Game as G type RandomState = S.State G.StdGen -data Screen = TitleScreen | HelpScreen | GameScreen deriving (Eq) +data Screen = TitleScreen | HelpScreen | GameScreen -data Direction = U | D | L | R deriving (Eq, Bounded, Enum) +data Direction = U | D | L | R deriving (Bounded, Enum) instance Random Direction where random g = randomR (minBound, maxBound) g -- 2.20.1