Skip to content

Commit

Permalink
Add get/setbpm functions to Boot.hs
Browse files Browse the repository at this point in the history
  • Loading branch information
matthewkaney committed Apr 19, 2024
1 parent 8d966d3 commit d83c2cc
Showing 1 changed file with 11 additions and 1 deletion.
12 changes: 11 additions & 1 deletion src/Sound/Tidal/Boot.hs
Original file line number Diff line number Diff line change
Expand Up @@ -27,6 +27,8 @@ module Sound.Tidal.Boot
, setCycle
, setcps
, getcps
, setbpm
, getbpm
, getnow
, d1
, d2
Expand Down Expand Up @@ -174,10 +176,18 @@ setCycle = streamSetCycle tidal
setcps :: Tidally => Pattern Double -> IO ()
setcps = once . cps

-- | See 'Sound.Tidal.Stream.streamGetcps'.
-- | See 'Sound.Tidal.Stream.streamGetCPS'.
getcps :: Tidally => IO Time
getcps = streamGetCPS tidal

-- | See 'Sound.Tidal.Stream.streamGetBPM'.
setbpm :: Tidally => Time -> IO ()
setbpm = streamSetBPM tidal

-- | See 'Sound.Tidal.Stream.streamGetBPM'.
getbpm :: Tidally => IO Time
getbpm = streamGetBPM tidal

-- | See 'Sound.Tidal.Stream.streamGetnow'.
getnow :: Tidally => IO Time
getnow = streamGetNow tidal
Expand Down

0 comments on commit d83c2cc

Please sign in to comment.