hemokit 0.6.1 → 0.6.2

raw patch · 3 files changed

+5/−3 lines, 3 files

Files

• apps/Dump.hs +2/−1
• apps/DumpConduit.hs +2/−1
• hemokit.cabal +1/−1

@@ -10,6 +10,7 @@ import qualified Data.ByteString.Lazy.Char8 as BSL8 import qualified Data.ByteString.Lazy as BSL import qualified Data.ByteString.Lazy.Builder as Builder+import qualified Data.ByteString.Lazy.Builder.ASCII as ASCIIBuilder import           Data.Function (fix) import           Data.IORef import           Data.List@@ -117,7 +118,7 @@ whitespaceFormat :: EmotivState -> BSL.ByteString whitespaceFormat EmotivState{ counter, battery, gyroX, gyroY, sensors, qualities }   = Builder.toLazyByteString . mconcat-    . intersperse (Builder.char8 ' ') . map Builder.intDec $ ints+    . intersperse (Builder.char8 ' ') . map ASCIIBuilder.intDec $ ints   where     ints = [ counter, battery, gyroX, gyroY ] ++ V.toList sensors ++ V.toList qualities 

@@ -11,6 +11,7 @@ import qualified Data.ByteString.Lazy as BSL import qualified Data.ByteString.Lazy.Char8 as BSL8 import qualified Data.ByteString.Lazy.Builder as Builder+import qualified Data.ByteString.Lazy.Builder.ASCII as ASCIIBuilder import           Data.Conduit import qualified Data.Conduit.List as CL import           Data.Function (fix)@@ -118,7 +119,7 @@ whitespaceFormat :: EmotivState -> BSL.ByteString whitespaceFormat EmotivState{ counter, battery, gyroX, gyroY, sensors, qualities }   = Builder.toLazyByteString . mconcat-    . intersperse (Builder.char8 ' ') . map Builder.intDec $ ints+    . intersperse (Builder.char8 ' ') . map ASCIIBuilder.intDec $ ints   where     ints = [ counter, battery, gyroX, gyroY ] ++ V.toList sensors ++ V.toList qualities 

@@ -1,5 +1,5 @@ name:          hemokit-version:       0.6.1+version:       0.6.2 license:       MIT copyright:     2013 Niklas Hambüchen <mail@nh2.me>, Patrick Chilton <chpatrick@gmail.com> author:        Niklas Hambüchen <mail@nh2.me>, Patrick Chilton <chpatrick@gmail.com>