{-# HLINT ignore "Use camelCase" #-}

module Main (main) where

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 i) <- getWState
          wio $ putStrLn $ "Handle something!!! :) " ++ str ++ " " ++ show i
          incrementState
      )

main :: IO ()
main = putStrLn "This should be dynamically linked!\n"