Update fileDialog.hs

2025-08-28 01:56:51 +00:00 · 2025-08-28 01:56:51 +00:00 · 264a28aea4
commit 264a28aea4
parent 64a6b5035a
1 changed files with 1 additions and 2 deletions
--- a/fileDialog.hs
+++ b/fileDialog.hs
@ -22,8 +22,7 @@ selectFolder :: FileDialog -> ApplicationWindow -> (Maybe String -> IO ()) -> IO
 selectFolder fd w k =
  fileDialogSelectFolder fd (Just w) (Nothing :: Maybe Cancellable) $ Just $ \_ r -> do
    mbPath <- runMaybeT $ do
-      f <- MaybeT $ handleDialogError (\_ _ -> pure Nothing)
-                                   (fileDialogSelectFolderFinish fd r)
+      f <- MaybeT $ handleDialogError (\_ _ -> pure Nothing) (fileDialogSelectFolderFinish fd r)
      p <- MaybeT $ fileGetPath f
      p <$ (liftIO (doesDirectoryExist p) >>= guard)
    k mbPath