Small fix
[fixparanoia.git] / 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 ()