summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormitchellwrosen <>2014-12-03 06:31:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2014-12-03 06:31:00 (GMT)
commit4f03daa18eb3d5efb42033358289f72dbc3f1927 (patch)
treec5953942c5a6ce22726ea5ec09a31221b09675a5
parente98e3cb6ba45dbb79918d6c15423dd756f1f28bf (diff)
version 0.1.0.1HEAD0.1.0.1master
-rw-r--r--src/Statsd.hs5
-rw-r--r--statsd.cabal2
2 files changed, 2 insertions, 5 deletions
diff --git a/src/Statsd.hs b/src/Statsd.hs
index fd9aa72..06f3c07 100644
--- a/src/Statsd.hs
+++ b/src/Statsd.hs
@@ -74,11 +74,8 @@ runStatsd :: (MonadBaseControl IO m, MonadIO m)
-> StatsdT m a -> m a
runStatsd family socket_type protocol_num sock_addr (StatsdT action) =
withSocket family socket_type protocol_num sock_addr $ \sock -> do
- liftIO (putStrLn $ "sock = " ++ show sock)
(a, bss) <- runWriterT (runReaderT action sock)
- let payload = BS.intercalate "\n" bss
- liftIO (putStrLn $ "payload = " ++ show payload)
- liftIO $ sendAll sock payload
+ liftIO $ sendAll sock (BS.intercalate "\n" bss)
return a
-- | Push to a StatsD counter.
diff --git a/statsd.cabal b/statsd.cabal
index 4cdb047..4295bb6 100644
--- a/statsd.cabal
+++ b/statsd.cabal
@@ -1,5 +1,5 @@
name: statsd
-version: 0.1
+version: 0.1.0.1
synopsis: StatsD API.
description: This package provides a simple interface to <https://github.com/etsy/statsd/ StatsD>.
homepage: https://github.com/mitchellwrosen/statsd-haskell