Add get/setbpm functions to Boot.hs

tidalcycles · Apr 19, 2024 · d83c2cc · d83c2cc
1 parent 8d966d3
commit d83c2cc
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/Sound/Tidal/Boot.hs b/src/Sound/Tidal/Boot.hs
@@ -27,6 +27,8 @@ module Sound.Tidal.Boot
   , setCycle
   , setcps
   , getcps
+  , setbpm
+  , getbpm
   , getnow
   , d1
   , d2
@@ -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