From 7f244f83a40ab4ecd67ff9d551be127589f6e96b Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Sun, 2 Dec 2018 15:52:09 +0100
Subject: [PATCH] Remove commented-out code

---
 src/Message.hs | 7 -------
 src/Pokemon.hs | 1 -
 2 files changed, 8 deletions(-)

diff --git a/src/Message.hs b/src/Message.hs
index 0385a6c..fab3596 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE FlexibleContexts #-}
-{- LANGUAGE MultiParamTypeClasses #-}
 module Message (
       Connected
     , receive
@@ -17,12 +16,6 @@ import qualified Message.Server as Server (Message(..))
 
 type Connected a = ReaderT Connection (StateT Game IO) a
 
-{-
-class ReaderIO t c where
-  f :: t a -> t c
-  liftIO :: (a -> IO b) -> a -> t b
--}
-
 send :: (MonadReader Connection t, MonadIO t) => Server.Message -> t ()
 send message = do
   connection <- ask
diff --git a/src/Pokemon.hs b/src/Pokemon.hs
index 7cf681b..7552ace 100644
--- a/src/Pokemon.hs
+++ b/src/Pokemon.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE DeriveGeneric #-}
-{- LANGUAGE FlexibleInstances #-}
 module Pokemon (
     T(..)
   ) where