fixparanoia.hs

   1 #!/usr/local/bin/runhaskell
   2 import System.Directory
   3 import Text.Regex.PCRE.Light.Char8
   4
   5 main :: IO ()
   6 main = do files <- getDirectoryContents "."
   7           mapM_ fixIfNeedBe files
   8
   9 fixIfNeedBe :: FilePath -> IO ()
  10 fixIfNeedBe fName
  11     = case match (compile "^track([0-9]+)\\.cdda\\.wav$" []) fName [] of
  12         Just [_, num]
  13             -> do putStrLn (fName ++ " -> " ++ num ++ ".wav")
  14                   renameFile fName (num ++ ".wav")
  15         _   -> return ()