Changing time in tidal via OSC messages

ChangeTime.hs

import Sound.OSC.FD
import Data.Maybe
import Sound.Tidal.Context
import Control.Applicative


oscTempoResponder = do
  x <- udpServer "127.0.0.1" 4013
  (cps, getNow) <- bpsUtils
  forkIO $ loop cps x
    where loop cps x = do m <- recvMessage x
                          act cps m
                          loop cps x
          act cps (Just (Message "/tempo" (pid:bpm:_))) =
              do
                let bpm' = (fromJust $ d_get bpm) :: Float

                cps $ ((fromIntegral $ round $ realToFrac bpm') / 60) / 2
                return ()