Refactor HasID typeclass
Closed this issue · 0 comments
simmsb commented
Instead of HasID a
only having a single output type, allow it to work for types that contain multiple IDs, so:
class HasID a b where
getID :: a -> Snowflake b
instance HasID Message Message where
getID = view #id
instance HasID Message Channel where
getID = view #channelID