lambdabot-utils 4.1 → 4.2
raw patch · 3 files changed
+4/−5 lines, 3 files
Files
- Lambdabot/Serial.hs +2/−3
- Lambdabot/Signals.hs +1/−1
- lambdabot-utils.cabal +1/−1
Lambdabot/Serial.hs view
@@ -65,7 +65,7 @@ gzip = P.concat . toChunks . compress . fromChunks . (:[]) gunzip :: ByteString -> ByteString-gunzip = P.concat . toChunks . decompress .fromChunks . (:[])+gunzip = P.concat . toChunks . decompress . fromChunks . (:[]) #endif --@@ -128,7 +128,6 @@ readKV (k:rest) = let (vs, rest') = break (== P.empty) rest in (k,vs) : readKV (drop 1 rest') - showPacked m = gzip . P.unlines . concatMap (\(k,vs) -> k : vs ++ [P.empty]) $ M.toList m@@ -173,7 +172,7 @@ mapListPackedSerial = Serial (Just . showPacked) (Just . readPacked) -- And for association list-assocListPackedSerial :: Serial ([(ByteString,ByteString)])+assocListPackedSerial :: Serial ([(ByteString,ByteString)]) assocListPackedSerial = Serial (Just . showPacked) (Just . readPacked) ------------------------------------------------------------------------
Lambdabot/Signals.hs view
@@ -29,7 +29,7 @@ import Data.Typeable -import Control.Concurrent+import Control.Concurrent (myThreadId, newEmptyMVar, putMVar, MVar, ThreadId) import Control.Exception import Control.Monad.Error
lambdabot-utils.cabal view
@@ -1,5 +1,5 @@ Name: lambdabot-utils-Version: 4.1+Version: 4.2 License: GPL License-file: LICENSE Author: Don Stewart