toDatum (ExerciseListenedReference c q a) = ListenedReference <$> decode c <*> decode q <*> decode a
toDatum (ExerciseListenedReference c q a) = ListenedReference <$> decode c <*> decode q <*> decode a
toDatum (ExerciseListenedReference c q a) = ListenedReference <$> decode c <*> decode q <*> decode a