mkTempDir :: IO FilePath
mkTempDir = do
  tmp <- fromString . ("tmp_dir_" ++) . show <$> getProcessID
  createDirectory False tmp
  return tmp

-- readTag sucks because of weird dependencies
mkTempDir :: IO FilePath
mkTempDir = do
  tmp <- fromString . ("tmp_dir_" ++) . show <$> getProcessID
  createDirectory False tmp
  return tmp

-- readTag sucks because of weird dependencies
mkTempDir = do
  tmp <- fromString . ("tmp_dir_" ++) . show <$> getProcessID
  createDirectory False tmp
  return tmp

-- readTag sucks because of weird dependencies