Just some minor changes. Proof of concept for state change.

1 files changed, 10 insertions, 6 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 2d15fce..bdffd6f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,18 +1,22 @@
 {-# HLINT ignore "Use camelCase" #-}
 
 module Main (main) where
-import Control.Monad.Writer (execWriter, MonadWriter (tell))
 
+import Control.Monad.Writer (MonadWriter (tell), execWriter)
 import Wetterhorn.Core
 
 foreign export ccall wetterhorn :: IO Wetterhorn
+
 wetterhorn :: IO Wetterhorn
 wetterhorn =
- initWetterhorn $
-   WConfig "This is a string"
-   (do
-      (WState str _) <- getWState
-      wio $ putStrLn $ "Handle something!!! :) " ++ str)
+  initWetterhorn $
+    WConfig
+      "This is a string"
+      ( do
+          (WState str i) <- getWState
+          wio $ putStrLn $ "Handle something!!! :) " ++ str ++ " " ++ show i
+          incrementState
+      )
 
 main :: IO ()
 main = putStrLn "This should be dynamically linked!\n"