libsystemd-journal 1.3.1 → 1.3.3
raw patch · 3 files changed
+19/−3 lines, 3 filesdep ~base
Dependency ranges changed: base
Files
- Changelog.md +10/−0
- libsystemd-journal.cabal +2/−2
- src/Systemd/Journal.hsc +7/−1
Changelog.md view
@@ -1,3 +1,13 @@+# 1.3.3++* Added `journalField :: JournalField -> Text`, to view the name of a `JournalField` as `Text`.+ Thanks to @rickynils.+* Addressed a deprecation warning from `bytestring`.++# 1.3.2++* Increase the upper-bound of `base`.+ # 1.3.1 * Increase the upper-bound of `text` to < 1.3.
libsystemd-journal.cabal view
@@ -1,5 +1,5 @@ name: libsystemd-journal-version: 1.3.1+version: 1.3.3 synopsis: Haskell bindings to libsystemd-journal homepage: http://github.com/ocharles/libsystemd-journal license: BSD3@@ -16,7 +16,7 @@ library exposed-modules: Systemd.Journal- build-depends: base >=4.6 && <4.8, bytestring >= 0.9.1, pipes >= 4.0, pipes-safe >= 2.0, text >= 0.1 && < 1.3, transformers >= 0.3, unix-bytestring >= 0.3.2 && < 0.4, vector >= 0.4 && < 0.11, uuid, unordered-containers >= 0.1 && < 0.3, hashable >= 1.1.2.5, hsyslog, uniplate >= 1.6+ build-depends: base >=4.6 && <4.9, bytestring >= 0.9.1, pipes >= 4.0, pipes-safe >= 2.0, text >= 0.1 && < 1.3, transformers >= 0.3, unix-bytestring >= 0.3.2 && < 0.4, vector >= 0.4 && < 0.11, uuid, unordered-containers >= 0.1 && < 0.3, hashable >= 1.1.2.5, hsyslog, uniplate >= 1.6 hs-source-dirs: src default-language: Haskell2010 pkgconfig-depends: libsystemd >= 209
src/Systemd/Journal.hsc view
@@ -28,6 +28,7 @@ -- ** Custom journal fields , JournalField , mkJournalField+ , journalField -- * Reading the journal , openJournal@@ -88,6 +89,11 @@ mkJournalField = JournalField . Text.toUpper --------------------------------------------------------------------------------+-- | Extract the name of a 'JournalField'.+journalField :: JournalField -> Text.Text+journalField (JournalField f) = f++-------------------------------------------------------------------------------- -- | A structured object of all the fields in an entry in the journal. You -- generally don't construct this yourself, but you use the monoid instance and -- smart constructors below.@@ -371,7 +377,7 @@ case field of Just f -> let (fieldName, fieldValue) =- BS.breakByte (fromIntegral $ ord '=') f+ BS.break (== (fromIntegral $ ord '=')) f in readFields (HashMap.insert (JournalField $ Text.decodeUtf8 fieldName)