twiddle

yaxu · Dec 28, 2012 · ec71ef6 · ec71ef6
1 parent 15ec723
commit ec71ef6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Stream.hs b/Stream.hs
@@ -81,7 +81,7 @@ toMessage s change ticks (o, m) =
          oscdata = catMaybes $ mapMaybe (\x -> Map.lookup x m') (params s)
          oscdata' = ((Int sec):(Int usec):oscdata)
          osc | timestamp s = Bundle (immediately) [Message (path s) oscdata']
-             | otherwise = Bundle (UTCr logicalOnset) [Message (path s) oscdata]
+             | otherwise = Bundle (ut_to_ntpr logicalOnset) [Message (path s) oscdata]
      return osc