createFile base (DirEmpty name _)                            = mkdir (base </> name)
createFile base (DirEmpty name _)                            = mkdir (base </> name)
createFile base (DirEmpty name _)                            = mkdir (base </> name)