createFile base (Dir name _ subtree)                         = do
    mkdir (base </> name)
    mapM_ (createFile $ base </> name) subtree
createFile base (Dir name _ subtree)                         = do
    mkdir (base </> name)
    mapM_ (createFile $ base </> name) subtree
createFile base (Dir name _ subtree)                         = do
    mkdir (base </> name)
    mapM_ (createFile $ base </> name) subtree