src/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{-# 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"