{-# LANGUAGE OverloadedStrings #-} -- | Build time configuration used during code generation. module GI.Wnck.Config ( overrides ) where import qualified Data.Text as T import Data.Text (Text) -- | Overrides used when generating these bindings. overrides :: Text overrides :: Text overrides = [Text] -> Text T.unlines [ Text "set-attr Wnck/Screen/get_active_window/@return-value nullable 1" , Text "set-attr Wnck/Screen/get_active_workspace/@return-value nullable 1" , Text "" , Text "set-attr Wnck/ScreenClass/active_window_changed/@parameters/previous_window nullable 1"]