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