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"