
4 Nov
2012
4 Nov
'12
2:21 p.m.
Hey, I have another <<loop>> with netwire. This is the minimal example I got it down to: {-# LANGUAGE Arrows #-} import Control.Wire mainWire :: WireP () Double mainWire = proc _ -> do rec out <- accum1 (+) 0 -< oldOut oldOut <- delay 0 -< out returnA -< out main = wireLoop mainWire wireLoop :: WireP () Double -> IO () wireLoop w' = do let (mx, w) = stepWireP w' 1.0 () putStrLn $ show mx wireLoop w Output: <<loop>> I am aware, in this context I could just use accum. I triggered the error where I changed integral_ and accum1. By the way, is it apropriate, that I always write these "netwire bug reports" over this list? Regards, Nathan