app/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE OverloadedStrings, OverloadedRecordDot #-}

import Control.Monad (void)
import Control.Exception (bracket_)
import System.Environment (getArgs)
import Foobar.Application (mkApplication)

import qualified GI.Foobar as FB

main :: IO ()
main = bracket_ FB.stylesRegisterResource FB.stylesUnregisterResource $
       bracket_ FB.iconsRegisterResource  FB.iconsUnregisterResource  $
         do args <- getArgs
            app  <- mkApplication
            void $ app.run (Just ("com.github.hannesschulze.foobar" : args))