From 264a28aea4d1a129d4a9ec7ad3c915154477a3d4 Mon Sep 17 00:00:00 2001 From: hashirama Date: Thu, 28 Aug 2025 01:56:51 +0000 Subject: [PATCH] Update fileDialog.hs --- fileDialog.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/fileDialog.hs b/fileDialog.hs index b207ae0..f694d45 100644 --- 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