moveFile :: FilePath -> IO ()
moveFile fpath = do
  dest <- destination $ mediaType fpath
  mv fpath dest
moveFile :: FilePath -> IO ()
moveFile fpath = do
  dest <- destination $ mediaType fpath
  mv fpath dest
moveFile fpath = do
  dest <- destination $ mediaType fpath
  mv fpath dest