withChannelRet ret chun f = let key = read $ show chun :: Int
                            in do c <- fmap _channels getT
                                  case lookup key c of
                                     Just channel -> f channel
                                     Nothing      -> return ret

-- |Pause a sound
withChannelRet ret chun f = let key = read $ show chun :: Int
                            in do c <- fmap _channels getT
                                  case lookup key c of
                                     Just channel -> f channel
                                     Nothing      -> return ret

-- |Pause a sound
withChannelRet ret chun f = let key = read $ show chun :: Int
                            in do c <- fmap _channels getT
                                  case lookup key c of
                                     Just channel -> f channel
                                     Nothing      -> return ret

-- |Pause a sound