main :: IO ()
main = do
  homeDir <- home
  sh $ do
    files <- ls $ homeDir </> "Desktop"
    liftIO $ moveFile files
main :: IO ()
main = do
  homeDir <- home
  sh $ do
    files <- ls $ homeDir </> "Desktop"
    liftIO $ moveFile files
main = do
  homeDir <- home
  sh $ do
    files <- ls $ homeDir </> "Desktop"
    liftIO $ moveFile files