explicit match

tidalcycles · Jan 9, 2019 · 5c399fb · 5c399fb
1 parent 096be19
commit 5c399fb
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Sound/Tidal/Stream.hs b/src/Sound/Tidal/Stream.hs
@@ -196,11 +196,11 @@ send :: O.Transport t => OSCTarget -> Double -> t -> (Double, O.Message) -> IO (
 send target latency u (time, m)
   | oTimestamp target == BundleStamp = O.sendBundle u $ O.Bundle (time + latency) [m]
   | oTimestamp target == MessageStamp = O.sendMessage u m
-  | otherwise = do _ <- forkIO $ do now <- O.time
-                                    threadDelay $ floor $ ((time+latency) - now) * 1000000
-                                    O.sendMessage u m
-                   return ()
-  
+  | oTimestamp target == NoStamp = do _ <- forkIO $ do now <- O.time
+                                                       threadDelay $ floor $ ((time+latency) - now) * 1000000
+                                                       O.sendMessage u m
+                                      return ()
+
 sched :: T.Tempo -> Rational -> Double
 sched tempo c = ((fromRational $ c - (T.atCycle tempo)) / T.cps tempo) + (T.atTime tempo)