make gegl dependency

This commit is contained in:
nek0 2016-04-26 22:33:35 +02:00
parent 0faa4c6c29
commit 1262be0666
3 changed files with 5 additions and 1 deletions

View file

@ -47,6 +47,7 @@ library
, text , text
, linear , linear
, mtl , mtl
, gegl
-- , sdl2-image -- , sdl2-image
source-repository head source-repository head

View file

@ -9,7 +9,7 @@ module Affection
import SDL import SDL
import Data.Text import Data.Text
import qualified Control.Concurrent as CC import GEGL
import Affection.Render import Affection.Render
import Affection.Types import Affection.Types
@ -24,7 +24,9 @@ withWindow :: Monad m => Text -> WindowConfig -> RendererConfig -> RenderT m a -
withWindow title wconf rconf ops = do withWindow title wconf rconf ops = do
window <- createWindow title wconf window <- createWindow title wconf
renderer <- createRenderer window (-1) rconf renderer <- createRenderer window (-1) rconf
gegl_init
inRender renderer $ ops inRender renderer $ ops
gegl_exit
destroyWindow window destroyWindow window
withDefaultWindow :: Monad m => Text -> (RenderT m a) -> IO () withDefaultWindow :: Monad m => Text -> (RenderT m a) -> IO ()

View file

@ -6,6 +6,7 @@ resolver: lts-5.1
# Local packages, usually specified by relative directory name # Local packages, usually specified by relative directory name
packages: packages:
- '.' - '.'
- "../gegl"
# Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3) # Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3)
extra-deps: [] extra-deps: []