-- | Given a url, get its soundbyte path (replace '/' with '-')
getSoundbytePath :: String -> Kerchief FilePath
getSoundbytePath = getSoundbytePath' . map (\c -> if c == '/' then '-' else c)
  where
    getSoundbytePath' :: String -> Kerchief FilePath
    getSoundbytePath' url = (</> url) <$> getSoundbytesDir
getSoundbytePath :: String -> Kerchief FilePath
getSoundbytePath = getSoundbytePath' . map (\c -> if c == '/' then '-' else c)
  where
    getSoundbytePath' :: String -> Kerchief FilePath
    getSoundbytePath' url = (</> url) <$> getSoundbytesDir
getSoundbytePath = getSoundbytePath' . map (\c -> if c == '/' then '-' else c)
  where
    getSoundbytePath' :: String -> Kerchief FilePath
    getSoundbytePath' url = (</> url) <$> getSoundbytesDir