Skip to content

Commit

Permalink
yampa: Remove vertical space (KSG Haskell 1.3.0 - 5.5). Refs #266.
Browse files Browse the repository at this point in the history
Prefer consistent names, structure, and improvements over localized
optimizations. For example, a module might define an API in a particular
order, and a module with a similar but distinct API might list elements
in a completely different order. Whenever possible, code should be
consistent.
  • Loading branch information
ivanperez-keera committed Apr 29, 2023
1 parent cb9a63a commit 3006b7d
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions yampa/src/FRP/Yampa/Simulation.hs
Original file line number Diff line number Diff line change
Expand Up @@ -91,7 +91,6 @@ import FRP.Yampa.InternalCore (DTime, SF (..), SF' (..), sfTF')
-- also impose a sizeable constraint in larger projects in which different
-- subparts run at different time steps. If you need to control the main loop
-- yourself for these or other reasons, use 'reactInit' and 'react'.

reactimate :: Monad m
=> m a -- ^ Initialization action
-> (Bool -> m (DTime, Maybe a)) -- ^ Input sensing action
Expand Down Expand Up @@ -228,7 +227,6 @@ deltaEncodeBy eq dt (a0:as) = (a0, zip (repeat dt) (debAux a0 as))

-- | A wrapper around an initialized SF (continuation), needed for testing and
-- debugging purposes.
--
newtype FutureSF a b = FutureSF { unsafeSF :: SF' a b }

-- | Evaluate an SF, and return an output and an initialized SF.
Expand Down Expand Up @@ -267,7 +265,6 @@ evalAt (FutureSF { unsafeSF = tf }) dt a = (b, FutureSF tf')
-- intended only for debugging/testing. Apart from being potentially slower and
-- consuming more memory, it also breaks the FRP abstraction by making samples
-- discrete and step based.
--
evalFuture :: SF a b -> a -> DTime -> (b, SF a b)
evalFuture sf a dt = (b, sf' dt)
where
Expand Down

0 comments on commit 3006b7d

Please sign in to comment.