Permalink
Browse files

twiddle

  • Loading branch information...
1 parent 15ec723 commit ec71ef6248273207d3cd947584839d510cc1f283 @yaxu committed Dec 28, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Stream.hs
View
@@ -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

0 comments on commit ec71ef6

Please sign in to comment.