toMessage e (GameUpdate (Read            m s))          | isPlayer m = Just $ "You read the " ++ show s ++ "."
toMessage e (GameUpdate (Read            m s))          | isPlayer m = Just $ "You read the " ++ show s ++ "."
toMessage e (GameUpdate (Read            m s))          | isPlayer m = Just $ "You read the " ++ show s ++ "."