createVSETarFile :: FilePath -> IO ()
createVSETarFile tar = do
  hasSpecDir <- doesDirectoryExist specDir
  hasAllSpecFile <- doesFileExist allSpecFile
  if (hasSpecDir && hasAllSpecFile) then do
    renameFile allSpecFile allSpecInDir
    Tar.create (tar ++ ".tar") "" [specDir]
    else putStrLn $ "hetsvse did not create: "
      ++ if hasSpecDir then allSpecFile else specDir
createVSETarFile :: FilePath -> IO ()
createVSETarFile tar = do
  hasSpecDir <- doesDirectoryExist specDir
  hasAllSpecFile <- doesFileExist allSpecFile
  if (hasSpecDir && hasAllSpecFile) then do
    renameFile allSpecFile allSpecInDir
    Tar.create (tar ++ ".tar") "" [specDir]
    else putStrLn $ "hetsvse did not create: "
      ++ if hasSpecDir then allSpecFile else specDir
createVSETarFile tar = do
  hasSpecDir <- doesDirectoryExist specDir
  hasAllSpecFile <- doesFileExist allSpecFile
  if (hasSpecDir && hasAllSpecFile) then do
    renameFile allSpecFile allSpecInDir
    Tar.create (tar ++ ".tar") "" [specDir]
    else putStrLn $ "hetsvse did not create: "
      ++ if hasSpecDir then allSpecFile else specDir