git.iko.soy/typeable/katip
on master help sign in
Export severity/text prism
bbaaa63Michael Xavier
katip/src/Katip.hs+3−1
compare with master
unifiedsplit
@@ -6,7 +6,9 @@ module Katip
6 Katip (..)
6 Katip (..)
7 , Namespace (..)
7 , Namespace (..)
8 , Environment (..)
8 , Environment (..)
9+ , Severity (..)
9− , Severity (..), renderSeverity
10+ , renderSeverity
11+ , severityText
10 , Verbosity (..)
12 , Verbosity (..)
11 , ToObject (..)
13 , ToObject (..)
12 , LogItem (..)
14 , LogItem (..)
katip/src/Katip/Core.hs+1−9
@@ -112,16 +112,8 @@ renderSeverity s = case s of
112
112
113-------------------------------------------------------------------------------
113-------------------------------------------------------------------------------
114severityText :: Prism' Text Severity
114severityText :: Prism' Text Severity
115−severityText = prism fromSev toSev
115+severityText = prism renderSeverity toSev
116 where
116 where
117− fromSev DebugS = "Debug"
118− fromSev InfoS = "Info"
119− fromSev NoticeS = "Notice"
120− fromSev WarningS = "Warning"
121− fromSev ErrorS = "Error"
122− fromSev CriticalS = "Critical"
123− fromSev AlertS = "Alert"
124− fromSev EmergencyS = "Emergency"
125 toSev "Debug" = Right DebugS
117 toSev "Debug" = Right DebugS
126 toSev "Info" = Right InfoS
118 toSev "Info" = Right InfoS
127 toSev "Notice" = Right NoticeS
119 toSev "Notice" = Right NoticeS