From 1262be0666ea862ca5317aa1dd8e6432043c0f17 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 26 Apr 2016 22:33:35 +0200 Subject: [PATCH] make gegl dependency --- affection.cabal | 1 + src/Affection.hs | 4 +++- stack.yaml | 1 + 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/affection.cabal b/affection.cabal index 0c76ffc..c44e398 100644 --- a/affection.cabal +++ b/affection.cabal @@ -47,6 +47,7 @@ library , text , linear , mtl + , gegl -- , sdl2-image source-repository head diff --git a/src/Affection.hs b/src/Affection.hs index 660e8f2..3263691 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -9,7 +9,7 @@ module Affection import SDL import Data.Text -import qualified Control.Concurrent as CC +import GEGL import Affection.Render import Affection.Types @@ -24,7 +24,9 @@ withWindow :: Monad m => Text -> WindowConfig -> RendererConfig -> RenderT m a - withWindow title wconf rconf ops = do window <- createWindow title wconf renderer <- createRenderer window (-1) rconf + gegl_init inRender renderer $ ops + gegl_exit destroyWindow window withDefaultWindow :: Monad m => Text -> (RenderT m a) -> IO () diff --git a/stack.yaml b/stack.yaml index b1f3b2c..97425ce 100644 --- a/stack.yaml +++ b/stack.yaml @@ -6,6 +6,7 @@ resolver: lts-5.1 # Local packages, usually specified by relative directory name packages: - '.' +- "../gegl" # Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3) extra-deps: []