Implemented UDP chunking.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Graylog/Types.hs b/src/Graylog/Types.hs
index 8fad8cc..5c32a8b 100644
--- a/src/Graylog/Types.hs
+++ b/src/Graylog/Types.hs
@@ -8,6 +8,7 @@ module Graylog.Types
    , _graylogAddress
    , _graylogSocket
    , _graylogHostName
+   , _graylogChunkSize
    , ChunkSize
 
    , defaultChunkSize
@@ -38,7 +39,9 @@ defaultChunkSize = 8192
 
 openGraylog
    :: HostName -> ServiceName -> ChunkSize -> IO (Either String Graylog)
-openGraylog h p cksize = getAddrInfo Nothing (Just h) (Just p) >>= \case
+openGraylog h p cksize
+   | cksize < 1024 = return $ Left "ChunkSize must be at least 1024."
+   | otherwise     = getAddrInfo Nothing (Just h) (Just p) >>= \case
    []     -> return $ Left "No address info found."
    infos ->
       case find (\i -> addrSocketType i == Datagram) infos of