fork download

import Data.List
import System.Directory
import Text.Regex.PCRE
import System.FilePath.Glob
import Text.Printf
import Control.Monad
mymatch :: String -> String -> (String,String,String)
mymatch str ptn = str =~ ptn
 
main = do
  files <- glob "abc*.mp4"
  let l = map (reverse . takeWhile (/= '/') . reverse) files
      ll =map (words . f) l
    in
    mapM_ (\[a,b] -> renameFile a b) ll
    where
      f x =let (_,y,_) = mymatch x "\\d+" in
        intercalate " " $ [x,"abc" <> printf "%03d" (read y::Int) <> ".mp4"] 
 

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:3:1: error:
    Could not find module ‘Text.Regex.PCRE’
    Use -v to see a list of the files searched for.
  |
3 | import Text.Regex.PCRE
  | ^^^^^^^^^^^^^^^^^^^^^^

prog.hs:4:1: error:
    Could not find module ‘System.FilePath.Glob’
    Perhaps you meant
      System.FilePath (from filepath-1.4.2)
      System.FilePath.Posix (from filepath-1.4.2)
    Use -v to see a list of the files searched for.
  |
4 | import System.FilePath.Glob
  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^

Standard output is empty