git.iko.soy/typeable/katip
on master help sign in
katip urls are now Text
commit8f21fec3fd50e2b85f97a74a8881a9367b02789c authorMichael Xavier <michael@michaelxavier.net> dateThu 19 Mar 2015, 12:11 (12 years ago) parent7649bba
2 files changed+3−1
compare with master
unifiedsplit
katip-elasticsearch/katip-elasticsearch.cabal+1 katip-elasticsearch/src/Katip/Scribes/ElasticSearch.hs+2−1
katip-elasticsearch/katip-elasticsearch.cabal+1
@@ -19,6 +19,7 @@ library
1919 , random >= 1.0 && < 1.2
2020 , uuid >= 1.3 && < 1.4
2121 , http-client
22+ , text
2223 hs-source-dirs: src
2324 default-language: Haskell2010
2425
katip-elasticsearch/src/Katip/Scribes/ElasticSearch.hs+2−1
@@ -3,6 +3,7 @@ module Katip.Scribes.ElasticSearch where
33
44-------------------------------------------------------------------------------
55import Control.Monad
6+import qualified Data.Text.Encoding as T
67import Data.UUID
78import Database.Bloodhound
89import Network.HTTP.Client
@@ -34,4 +35,4 @@ mkEsScribe ms server ix mapping sev verb =
3435
3536-------------------------------------------------------------------------------
3637mkDocId :: IO DocId
37−mkDocId = (DocId . toString) `fmap` randomIO
38+mkDocId = (DocId . T.decodeUtf8 . toASCIIBytes) `fmap` randomIO