{-# LANGUAGE ImplicitParams #-}
{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE OverloadedStrings #-}
import Control.Concurrent
import GI.Gtk
import GI.Gio hiding (Application)

main :: IO ()
main = do
    app <- new Application []
    onApplicationActivate app $ do
        dlg <- new FileDialog [fileDialogInitialFolder :=> fileNewForPath "/"]
        
        window <- new GI.Gtk.ApplicationWindow [#application := app,
                                                #title := "Wazajisho"]
                                                
        fileDialogSelectFolder dlg (Just window) (Nothing :: Maybe Cancellable) 
          
    
    applicationRun app Nothing
    threadDelay 30000000000