diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2026-01-05 01:31:25 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2026-01-05 01:31:25 -0700 |
| commit | 796558e57a040932e7ba9e219729267231f3139b (patch) | |
| tree | 527fecd7cc05b60973ffef73ae6505ca99b35be6 /plug/src/Config.hs | |
| parent | f6497f43b02e8b0351d0bbf0446c037161cda430 (diff) | |
| download | montis-796558e57a040932e7ba9e219729267231f3139b.tar.gz montis-796558e57a040932e7ba9e219729267231f3139b.tar.bz2 montis-796558e57a040932e7ba9e219729267231f3139b.zip | |
[reorg] remove references to foreign_* outside the core.
Added Monadic counterparts that work better.
Diffstat (limited to 'plug/src/Config.hs')
| -rw-r--r-- | plug/src/Config.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/plug/src/Config.hs b/plug/src/Config.hs index c76898e..50133b4 100644 --- a/plug/src/Config.hs +++ b/plug/src/Config.hs @@ -4,8 +4,8 @@ import Control.Monad.IO.Class (liftIO) import Data.Bits (shiftL, (.&.)) import Data.Word (Word32) import Montis.Core -import Montis.Base.Foreign.Runtime -import Montis.Standard.Drag (DragConfig (DragConfig), unwrapSelf) +import Montis.Core.Runtime (warpCursor) +import Montis.Standard.Drag (DragConfig (DragConfig)) import Montis.Standard.Keys (KeysConfig (KeysConfig), subkeys) import Montis.Standard.Mouse (MouseConfig (MouseConfig)) @@ -30,8 +30,7 @@ keys ev subkeys $ \ev -> case keyEvent_codepoint ev of 'k' -> do liftIO (putStrLn "k was pressed after j!") - self <- getSelfPtr - liftIO $ foreign_warpCursor (unwrapSelf self) 0 0 + warpCursor 0 0 return True _ -> return False _ -> return False |