blob: 010ebcc902d8b6fb84dbbd6529d88d116dddc4e1 (
plain)
1
2
3
4
5
6
7
8
|
import Control.Concurrent (threadDelay)
import Data.Function ((&))
import Effectful (liftIO, runEff)
import Hsm.Log (Severity (Info), runLog)
import Hsm.Stream (runStream, startStream)
main :: IO ()
main = (startStream >> liftIO (threadDelay $ maxBound @Int)) & runStream True & runLog @"stream" Info & runEff
|
