remove surface from load function

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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