`Cast` type should then become something like `data Cast = Play Castable | Queue [Castable]`
Casttype should then become something likedata Cast = Play Castable | Queue [Castable]