randomFileName :: IO FilePath
randomFileName = do
  createDirectoryIfMissing True uploadDirectory -- hack?

  fname'base <- replicateM 20 (randomRIO ('a','z'))
  let fname = uploadDirectory </> fname'base <.> "bin"
  return fname
randomFileName :: IO FilePath
randomFileName = do
  createDirectoryIfMissing True uploadDirectory -- hack?

  fname'base <- replicateM 20 (randomRIO ('a','z'))
  let fname = uploadDirectory </> fname'base <.> "bin"
  return fname
randomFileName = do
  createDirectoryIfMissing True uploadDirectory -- hack?

  fname'base <- replicateM 20 (randomRIO ('a','z'))
  let fname = uploadDirectory </> fname'base <.> "bin"
  return fname