{-# LANGUAGE RankNTypes #-}
module Main where

import Reactive.Banana
import Reactive.Banana.Frameworks
import Control.Monad
import Data.IORef

numNetworks = 800000

main = do
    (addHandler, fire) <- newAddHandler
    progRef <- newIORef 0
    printProgress 0
    forM_ [1 .. numNetworks] $ \n -> do
        oldProg <- readIORef progRef
        let newProg = round (fromIntegral n / fromIntegral numNetworks * 100)
        when (newProg > oldProg) (printProgress newProg >> writeIORef progRef newProg)
        net <- makeNetwork addHandler
        actuate net
        pause net
    getLine

makeNetwork :: AddHandler () -> IO EventNetwork
makeNetwork addHandler = do
    let
        desc :: forall t. Frameworks t => Moment t ()
        desc = do
            e <- fromAddHandler addHandler
            return ()
    compile desc

printProgress :: Int -> IO ()
printProgress n = putStrLn $ "[" ++ replicate n '.' ++ replicate (100-n) ' ' ++ "]"