diff options
| author | AndrewRademacher <andrew.rademacher@smrxt.com> | 2016-02-24 20:39:47 -0600 |
|---|---|---|
| committer | AndrewRademacher <andrew.rademacher@smrxt.com> | 2016-02-24 20:39:47 -0600 |
| commit | 2ff46fce748b0e813f13f03c034065092145a28d (patch) | |
| tree | 1c70beb0058dba6c3edebe8b7efbfc73c8ea7350 /src/Graylog/UDP.hs | |
| parent | 15981d57cda18a19fcb3012172a9f0994abfd97a (diff) | |
| download | haskell-graylog-2ff46fce748b0e813f13f03c034065092145a28d.tar.gz haskell-graylog-2ff46fce748b0e813f13f03c034065092145a28d.tar.zst haskell-graylog-2ff46fce748b0e813f13f03c034065092145a28d.zip | |
Defined Graylog type to contain connection informaiton.
Diffstat (limited to 'src/Graylog/UDP.hs')
| -rw-r--r-- | src/Graylog/UDP.hs | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/Graylog/UDP.hs b/src/Graylog/UDP.hs index 6aec108..00b6a12 100644 --- a/src/Graylog/UDP.hs +++ b/src/Graylog/UDP.hs | |||
| @@ -2,18 +2,12 @@ module Graylog.UDP | |||
| 2 | ( Graylog (..) | 2 | ( Graylog (..) |
| 3 | , sendLog | 3 | , sendLog |
| 4 | 4 | ||
| 5 | , module Graylog.Gelf | 5 | , module Export |
| 6 | ) where | 6 | ) where |
| 7 | 7 | ||
| 8 | import Network.Socket | 8 | import Graylog.Gelf as Export |
| 9 | 9 | import Graylog.Types as Export | |
| 10 | import Graylog.Gelf | ||
| 11 | |||
| 12 | data Graylog | ||
| 13 | = Graylog | ||
| 14 | { _graylogHost :: String | ||
| 15 | , _graylogPort :: String | ||
| 16 | } | ||
| 17 | 10 | ||
| 18 | sendLog :: Graylog -> GELF -> IO () | 11 | sendLog :: Graylog -> GELF -> IO () |
| 19 | sendLog glog msg = undefined | 12 | sendLog glog msg = undefined |
| 13 | |||