Remove unused Player.T type

src/Player.hs

@@ -6,8 +6,6 @@ module Player (
     , Name
     , Session(..)
     , Status(..)
-    , T(..)
-    , new
     , openSession
   ) where
 
@@ -22,18 +20,6 @@ import GHC.Generics
 newtype Key = Key Int deriving (Eq, Ord, Read, Show, Generic)
 newtype Name = Name Text deriving (Eq, Ord, Generic)
 
-data T = T {
-      key :: Key
-    , name :: Name
-  }
-  deriving (Generic)
-
-instance Data.RW Key T where
-  update f player@(T {key}) = player {key = f key}
-
-instance Data.RW Name T where
-  update f player@(T {name}) = player {name = f name}
-
 instance FromJSON Key
 instance ToJSON Key where
   toEncoding = genericToEncoding JSON.defaultOptions
@@ -45,9 +31,6 @@ instance FromJSON Name
 instance ToJSON Name where
   toEncoding = genericToEncoding JSON.defaultOptions
 
-instance ToJSON T where
-  toEncoding = genericToEncoding JSON.defaultOptions
-
 data Status =
     LoggedIn Bool
   | Answering Key
@@ -62,9 +45,6 @@ data Session = Session {
 instance Data.RW Status Session where
   update f session@(Session {status}) = session {status = f status}
 
-new :: Key -> Name -> T
-new key name = T {key, name}
-
 openSession :: Connection -> Session
 openSession connection = Session {
       connection