nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

remove surface from load function

Browse source
This commit is contained in:
nek0 2017-03-23 04:27:57 +01:00
parent 004f52aeb4
commit 0963ca4f42
6 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/example00.hs
View file

@ -41,8 +41,8 @@ data UserData = UserData
{ nodeGraph :: M.Map String G.GeglNode { nodeGraph :: M.Map String G.GeglNode
} }
load :: SDL.Surface -> IO UserData load :: IO UserData
load _ = do load = do
traceM "loading" traceM "loading"
root <- G.gegl_node_new root <- G.gegl_node_new
traceM "new root node" traceM "new root node"

4
examples/example01.hs
View file

@ -43,8 +43,8 @@ data UserData = UserData
-- , lastTick :: Double -- , lastTick :: Double
} }
load :: SDL.Surface -> IO UserData load :: IO UserData
load _ = do load = do
traceM "loading" traceM "loading"
root <- G.gegl_node_new root <- G.gegl_node_new
traceM "new root node" traceM "new root node"

4
examples/example02.1.hs
View file

@ -32,8 +32,8 @@ data UserData = UserData
, lastTick :: Double , lastTick :: Double
} }
load :: SDL.Surface -> IO UserData load :: IO UserData
load _ = do load = do
-- traceM "loading" -- traceM "loading"
-- root <- G.gegl_node_new -- root <- G.gegl_node_new
-- traceM "new root node" -- traceM "new root node"

4
examples/example02.hs
View file

@ -32,8 +32,8 @@ data UserData = UserData
, updateActors :: [Actor String] , updateActors :: [Actor String]
} }
load :: SDL.Surface -> IO UserData load :: IO UserData
load _ = do load = do
traceM "loading" traceM "loading"
root <- G.gegl_node_new root <- G.gegl_node_new
traceM "new root node" traceM "new root node"

4
examples/example03.hs
View file

@ -37,8 +37,8 @@ data UserData = UserData
, partsys :: ParticleSystem , partsys :: ParticleSystem
} }
load :: SDL.Surface -> IO UserData load :: IO UserData
load _ = do load = do
traceM "loading" traceM "loading"
root <- G.gegl_node_new root <- G.gegl_node_new
traceM "new root node" traceM "new root node"

4
examples/example04.hs
View file

@ -35,8 +35,8 @@ data UserData = UserData
, updateActors :: [Actor String] , updateActors :: [Actor String]
} }
load :: SDL.Surface -> IO UserData load :: IO UserData
load _ = do load = do
traceM "loading" traceM "loading"
root <- G.gegl_node_new root <- G.gegl_node_new
traceM "new root node" traceM "new root node"