Update fileDialog.hs

fileDialog.hs

@@ -34,10 +34,7 @@ main = do
 	          for_ mbFolderPath \ folderPath -> do
 	            exists <- doesDirectoryExist folderPath
 	            when exists do
-	              filePaths0 <- listDirectory folderPath
-	              for_ filePaths0 $ \filePath ->
-                          -- Oh God we finally have the value!
-                          putStrLn (folderPath </> filePath)
+	              putStrLn folderPath
 	
 
     applicationRun app Nothing