diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-02-11 22:55:00 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-02-11 22:55:00 -0700 |
| commit | e008ac8d837ad11557c7625f3c311f230986d7f5 (patch) | |
| tree | eb199548bd6fa8cad186a301194e930cc8636bc5 /src/Main.hs | |
| parent | 2d530e35ee67126c83afb89ed7a3066b65782f57 (diff) | |
| download | montis-e008ac8d837ad11557c7625f3c311f230986d7f5.tar.gz montis-e008ac8d837ad11557c7625f3c311f230986d7f5.tar.bz2 montis-e008ac8d837ad11557c7625f3c311f230986d7f5.zip | |
Added event handlers for map/unmap/destroy surfaces, added Alt+F5 for hot reload.
It turns out I could actually remove the metaload handler from the
plugin interface. As things turn out, when fully unloading the shared
object and reloading it, the Haskell runtime no longer complained. This
makes things much simpler, which is great.
I do wonder if I'm going to run into issues because of this, but I'll
cross that bridge when it's burning.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/Main.hs b/src/Main.hs index 75e21bd..03b5018 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -10,13 +10,8 @@ foreign export ccall wetterhorn :: IO Wetterhorn wetterhorn :: IO Wetterhorn wetterhorn = - initWetterhorn $ - WConfig - "This is a string" - ( \sym -> do - wio $ - printf "Got Key: %x\n" sym - ) + initWetterhorn + defaultConfig main :: IO () main = putStrLn "This should be dynamically linked!\n" |