Remove commented-out code

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

src/Pokemon.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE DeriveGeneric #-}
-{- LANGUAGE FlexibleInstances #-}
 module Pokemon (
     T(..)
   ) where