7 lines
225 B
Haskell
7 lines
225 B
Haskell
import System.Directory (createDirectory, setCurrentDirectory)
|
|
import Data.List.Split (splitOn)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let path = splitOn "/" "path/to/dir"
|
|
mapM_ (\x -> createDirectory x >> setCurrentDirectory x) path
|