summaryrefslogtreecommitdiff
path: root/gix.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-08-22 00:53:30 -0400
committerJoe Crayne <joe@jerkface.net>2020-01-13 23:59:37 -0500
commit5681bb2d7d9891c2c1b0577c940ab94da8af9928 (patch)
tree7fb507168877c87a2d80e05d741fbebdcc1fa2a3 /gix.hs
parentf2fbad12da41dd6111ffc4b14bf9e12977d50409 (diff)
Update to build with lts-14.2.
Diffstat (limited to 'gix.hs')
-rw-r--r--gix.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/gix.hs b/gix.hs
index 349d6a9..54da628 100644
--- a/gix.hs
+++ b/gix.hs
@@ -1,5 +1,7 @@
1{-# LANGUAGE OverloadedLabels #-} 1{-# LANGUAGE OverloadedLabels #-}
2{-# LANGUAGE OverloadedStrings #-} 2{-# LANGUAGE OverloadedStrings #-}
3{-# LANGUAGE TypeApplications #-}
4{-# LANGUAGE CPP #-}
3module Main where 5module Main where
4 6
5import GI.Gtk as Gtk hiding (main) 7import GI.Gtk as Gtk hiding (main)
@@ -25,7 +27,11 @@ main = do
25 _ <- on gl #realize $ R.realize st gl 27 _ <- on gl #realize $ R.realize st gl
26 _ <- on gl #unrealize $ R.unrealize st gl 28 _ <- on gl #unrealize $ R.unrealize st gl
27 _ <- on gl #render $ R.render st gl 29 _ <- on gl #render $ R.render st gl
30#if MIN_VERSION_haskell_gi_base(0,22,0)
31 typ <- gobjectType @GLArea
32#else
28 typ <- gobjectType gl 33 typ <- gobjectType gl
34#endif
29 ccSig <- signalLookup "create-context" typ 35 ccSig <- signalLookup "create-context" typ
30 ccid <- signalHandlerFind gl [SignalMatchTypeId] ccSig 36 ccid <- signalHandlerFind gl [SignalMatchTypeId] ccSig
31 0 -- detail 37 0 -- detail