aboutsummaryrefslogtreecommitdiff
path: root/montis/src/Montis/Base
diff options
context:
space:
mode:
Diffstat (limited to 'montis/src/Montis/Base')
-rw-r--r--montis/src/Montis/Base/Foreign/Runtime.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/montis/src/Montis/Base/Foreign/Runtime.hs b/montis/src/Montis/Base/Foreign/Runtime.hs
index 46507b5..5690b51 100644
--- a/montis/src/Montis/Base/Foreign/Runtime.hs
+++ b/montis/src/Montis/Base/Foreign/Runtime.hs
@@ -12,26 +12,26 @@ foreign import ccall "montis_do_request_log" foreign_doRequestLog :: Ptr Void ->
foreign import ccall "montis_do_request_exit" foreign_doRequestExit :: Ptr Void -> CInt -> IO ()
-foreign import ccall "arksoul_get_seat" foreign_getSeat :: Ptr Void -> IO (Ptr Void)
+foreign import ccall "arkworld_get_seat" foreign_getSeat :: Ptr Void -> IO (Ptr Void)
-foreign import ccall "arksoul_toplevel_at"
+foreign import ccall "arkworld_toplevel_at"
foreign_toplevelAt :: Ptr Void -> CDouble -> CDouble -> IO (Ptr ForeignMontisToplevel)
-foreign import ccall "arksoul_get_toplevel_position"
+foreign import ccall "arkworld_get_toplevel_position"
foreign_getToplevelPosition :: Ptr ForeignMontisToplevel -> Ptr CDouble -> Ptr CDouble -> IO ()
-foreign import ccall "arksoul_set_toplevel_position"
+foreign import ccall "arkworld_set_toplevel_position"
foreign_setToplevelPosition :: Ptr ForeignMontisToplevel -> CDouble -> CDouble -> IO ()
-foreign import ccall "arksoul_get_toplevel_geometry"
+foreign import ccall "arkworld_get_toplevel_geometry"
foreign_getToplevelGeometry ::
Ptr ForeignMontisToplevel -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()
-foreign import ccall "arksoul_set_toplevel_geometry"
+foreign import ccall "arkworld_set_toplevel_geometry"
foreign_setToplevelGeometry :: Ptr ForeignMontisToplevel -> CDouble -> CDouble -> CDouble -> CDouble -> IO ()
-foreign import ccall "arksoul_focus_toplevel"
+foreign import ccall "arkworld_focus_toplevel"
foreign_focusToplevel :: Ptr ForeignMontisToplevel -> IO ()
-foreign import ccall "arksoul_warp_cursor"
+foreign import ccall "arkworld_warp_cursor"
foreign_warpCursor :: Ptr Void -> CDouble -> CDouble -> IO ()