From 0963ca4f4245c0becfce107f286de0b89ff1e1dc Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 23 Mar 2017 04:27:57 +0100 Subject: [PATCH] remove surface from load function --- examples/example00.hs | 4 ++-- examples/example01.hs | 4 ++-- examples/example02.1.hs | 4 ++-- examples/example02.hs | 4 ++-- examples/example03.hs | 4 ++-- examples/example04.hs | 4 ++-- 6 files changed, 12 insertions(+), 12 deletions(-) diff --git a/examples/example00.hs b/examples/example00.hs index 844d545..ef595d1 100644 --- a/examples/example00.hs +++ b/examples/example00.hs @@ -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" diff --git a/examples/example01.hs b/examples/example01.hs index b2e03a2..87360e9 100644 --- a/examples/example01.hs +++ b/examples/example01.hs @@ -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" diff --git a/examples/example02.1.hs b/examples/example02.1.hs index aa2d443..62d8c55 100644 --- a/examples/example02.1.hs +++ b/examples/example02.1.hs @@ -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" diff --git a/examples/example02.hs b/examples/example02.hs index 013ab86..151c16e 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -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" diff --git a/examples/example03.hs b/examples/example03.hs index 2c633fb..b6f2d2f 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -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" diff --git a/examples/example04.hs b/examples/example04.hs index d1e6578..37a71d4 100644 --- a/examples/example04.hs +++ b/examples/example04.hs @@ -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"