toMessage e (GameUpdate (Drank           m p))          | isPlayer m = Just $ "You drank the " ++ show p ++ "."
toMessage e (GameUpdate (Drank           m p))          | isPlayer m = Just $ "You drank the " ++ show p ++ "."
toMessage e (GameUpdate (Drank           m p))          | isPlayer m = Just $ "You drank the " ++ show p ++ "."