diff --git a/GOL/Engine.hs b/GOL/Engine.hs index fd3b6a1..ceea438 100644 --- a/GOL/Engine.hs +++ b/GOL/Engine.hs @@ -26,6 +26,8 @@ gol r p s = EnvT r $ StoreT (Identity s) p gol' :: DisplayableSpace f => Rule -> f a -> GOL f a gol' r = gol r (0,0) + + getNeighbors :: forall f a. Space f => GOL f a -> [a] getNeighbors = experiment $ neighbors @f diff --git a/conways-game-of-life.cabal b/conways-game-of-life.cabal index a16603d..ef3d29c 100644 --- a/conways-game-of-life.cabal +++ b/conways-game-of-life.cabal @@ -10,10 +10,12 @@ executable main main-is: Main.hs other-modules: GOL.Rule, GOL.Space, - GOL.Engine + GOL.Engine, + Graphics.Engine build-depends: base, + vector, comonad, - Yampa, distributive, adjunctions, - vector \ No newline at end of file + Yampa, + gloss \ No newline at end of file