little_things/testAvgInt.hs

   1 import AvgIvl
   2
   3 import FRP.Yampa
   4
   5 basicList :: (Event a, [(DTime, Maybe (Event Int))])
   6 basicList = (NoEvent,
   7              concat $ repeat [ (1,Just (Event 1))
   8                              , (1,Just (Event 1))
   9                              , (1, Just (Event 1))
  10                              , (1, Just (Event 1))
  11                              , (1, Just (Event 1))])
  12
  13 randomList :: [DTime]
  14 randomList = embed avgIvl basicList