Try to move sound into world, slightly broken now

2021-09-08 19:12:54 +01:00
parent 04e5b9b39f
commit c3d567353c
9 changed files with 33 additions and 56 deletions
@@ -15,8 +15,8 @@ pdataResizeUpdate
    -> Int  -- ^ Scaled height
    -> Int  -- ^ Full width
    -> Int  -- ^ Full height
-    -> PreloadData a
-    -> IO (PreloadData a)
+    -> PreloadData
+    -> IO PreloadData
 pdataResizeUpdate xsize ysize xfull yfull pdata = do
    rd <- renderDataResizeUpdate xsize ysize xfull yfull (_renderData pdata)
    return (pdata {_renderData = rd})