netwire 1.2.2 → 1.2.3

raw patch · 3 files changed

+7/−7 lines, 3 files

Files

• FRP/NetWire/Calculus.hs +4/−4
• FRP/NetWire/Event.hs +2/−2
• netwire.cabal +1/−1

@@ -33,7 +33,7 @@ -- | Differentiate over time.  The argument is the value before the -- first instant. ----- Never inhibits.  Direct feedback.+-- Never inhibits.  Feedback by delay.  derivativeFrom ::     forall m v. (Monad m, NFData v, VectorSpace v, Scalar v ~ Double) =>@@ -44,16 +44,16 @@     derivativeFrom' dy' y1 =         mkGen $ \(wsDTime -> dt) y2 -> do             let dy = (y2 ^-^ y1) ^/ dt-            dy' `deepseq` return (Right dy', derivativeFrom' dy y2)+            dy' `deepseq` return (Right dy, derivativeFrom' dy y2)   -- | Integrate over time.  The argument is the integration constant. ----- Never inhibits.  Direct feedback.+-- Never inhibits.  Feedback by delay.  integral :: (Monad m, NFData v, VectorSpace v, Scalar v ~ Double) => v -> Wire m v v integral x1 =     mkGen $ \ws dx -> do         let dt = wsDTime ws             x2 = x1 ^+^ dt *^ dx-        x1 `deepseq` return (Right x1, integral x2)+        x1 `deepseq` return (Right x2, integral x2)

@@ -4,8 +4,8 @@ -- License:    BSD3 -- Maintainer: Ertugrul Soeylemez <es@ertes.de> ----- Events.  None of these wires supports feedback, because they all can--- inhibit.+-- Event system.  None of these wires except 'event' supports feedback,+-- because they all can inhibit.  module FRP.NetWire.Event     ( -- * Producing events

@@ -1,5 +1,5 @@ Name:          netwire-Version:       1.2.2+Version:       1.2.3 Category:      FRP, Network Synopsis:      Arrowized FRP implementation Maintainer:    Ertugrul Söylemez <es@ertes.de>