moveVSEFiles :: FilePath -> IO ()
moveVSEFiles str = do
  let tarFile = str ++ ".tar"
  hasTarFile <- doesFileExist tarFile
  hasSpecDir <- doesDirectoryExist specDir
  hasAllSpecFile <- doesFileExist allSpecFile
  when (hasSpecDir && hasAllSpecFile) $ do
     createVSETarFile (specDir ++ ".bak")
     removeDirectoryRecursive specDir
  when hasTarFile $ do
    Tar.extract "" tarFile
    renameFile allSpecInDir allSpecFile
#endif
moveVSEFiles :: FilePath -> IO ()
moveVSEFiles str = do
  let tarFile = str ++ ".tar"
  hasTarFile <- doesFileExist tarFile
  hasSpecDir <- doesDirectoryExist specDir
  hasAllSpecFile <- doesFileExist allSpecFile
  when (hasSpecDir && hasAllSpecFile) $ do
     createVSETarFile (specDir ++ ".bak")
     removeDirectoryRecursive specDir
  when hasTarFile $ do
    Tar.extract "" tarFile
    renameFile allSpecInDir allSpecFile
#endif
moveVSEFiles str = do
  let tarFile = str ++ ".tar"
  hasTarFile <- doesFileExist tarFile
  hasSpecDir <- doesDirectoryExist specDir
  hasAllSpecFile <- doesFileExist allSpecFile
  when (hasSpecDir && hasAllSpecFile) $ do
     createVSETarFile (specDir ++ ".bak")
     removeDirectoryRecursive specDir
  when hasTarFile $ do
    Tar.extract "" tarFile
    renameFile allSpecInDir allSpecFile
#endif