git.iko.soy/typeable/katip
on master help sign in
Shorten type annotations
23c765dMichael Xavier
katip-elasticsearch/src/Katip/Scribes/ElasticSearch/Annotations.hs+5−5
compare with master
unifiedsplit
@@ -96,16 +96,16 @@ deannotateKeys = HM.fromList . map go . HM.toList
96
96
97
97
98stringAnn :: Text
98stringAnn :: Text
99−stringAnn = "::string"
99+stringAnn = "::s"
100
100
101doubleAnn :: Text
101doubleAnn :: Text
102−doubleAnn = "::double"
102+doubleAnn = "::d"
103
103
104longAnn :: Text
104longAnn :: Text
105−longAnn = "::long"
105+longAnn = "::l"
106
106
107booleanAnn :: Text
107booleanAnn :: Text
108−booleanAnn = "::boolean"
108+booleanAnn = "::b"
109
109
110nullAnn :: Text
110nullAnn :: Text
111−nullAnn = "::null"
111+nullAnn = "::n"
katip-elasticsearch/test/Main.hs+7−7
@@ -67,7 +67,7 @@ esTests setup = testGroup "elasticsearch scribe"
67 length logs @?= 1
67 length logs @?= 1
68 let l = head logs
68 let l = head logs
69 l ^? key "_source" . key "msg" . _String @?= Just "A test message"
69 l ^? key "_source" . key "msg" . _String @?= Just "A test message"
70− l ^? key "_source" . key "data" . key "whatever::boolean" . _Bool @?= Just True
70+ l ^? key "_source" . key "data" . key "whatever::b" . _Bool @?= Just True
71 ]
71 ]
72
72
73
73
@@ -120,12 +120,12 @@ annotatedExampleValue = Array $ V.fromList
120 Null
120 Null
121 , Object $ HM.fromList
121 , Object $ HM.fromList
122 [
122 [
123− ("a map",Object $ HM.fromList [("baz::boolean", Bool True)])
123+ ("a map",Object $ HM.fromList [("baz::b", Bool True)])
124− , ("a bool::boolean", Bool False)
124+ , ("a bool::b", Bool False)
125− , ("a null::null", Null)
125+ , ("a null::n", Null)
126− , ("a string::string", String "s")
126+ , ("a string::s", String "s")
127− , ("a double::double", Number 52.3)
127+ , ("a double::d", Number 52.3)
128− , ("a long::long", Number 24.0)
128+ , ("a long::l", Number 24.0)
129 ]
129 ]
130 ]
130 ]
131
131