@@ -249,29 +249,38 @@ makeLenses ''Item
249249
250250
251251instance Show a => Show (Item a) where
252− show Item{..} = "Item {_itemApp = " ++ show _itemApp ++ ", " ++
253− "_itemEnv = " ++ show _itemEnv ++ ", " ++
254− "_itemSeverity = " ++ show _itemSeverity ++ ", " ++
255− "_itemThread = " ++ show _itemThread ++ ", " ++
256− "_itemHost = " ++ show _itemHost ++ ", " ++
257− "_itemProcess = " ++ show _itemProcess ++ ", " ++
258− "_itemPayload = " ++ show _itemPayload ++ ", " ++
259− "_itemMessage = " ++ show _itemMessage ++ ", " ++
260− "_itemTime = " ++ show _itemTime ++ ", " ++
261− "_itemNamespace = " ++ show _itemNamespace ++ ", " ++
262− "_itemLoc = " ++ show (LocShow <$> _itemLoc) ++ "}"
263−
252+ showsPrec d Item{..} = showParen (d >= 11) ( showString "Item {"
253+ . field "_itemApp" _itemApp
254+ . field "_itemEnv" _itemEnv
255+ . field "_itemSeverity" _itemSeverity
256+ . field "_itemThread" _itemThread
257+ . field "_itemHost" _itemHost
258+ . field "_itemProcess" _itemProcess
259+ . field "_itemPayload" _itemPayload
260+ . field "_itemMessage" _itemMessage
261+ . field "_itemTime" _itemTime
262+ . field "_itemNamespace" _itemNamespace
263+ . showString "_itemLoc = " . shows (LocShow <$> _itemLoc)
264+ . showChar '}'
265+ )
266+ where
267+ field n v = showString n . showString " = " . shows v . showString ", "
264268
265269newtype LocShow = LocShow Loc
266270
267271
268272instance Show LocShow where
269− show (LocShow Loc{..}) =
270− "Loc {loc_filename = " ++ show loc_filename ++ ", " ++
271− "loc_package = " ++ show loc_package ++ ", " ++
272− "loc_module = " ++ show loc_module ++ ", " ++
273− "loc_start = " ++ show loc_start ++ ", " ++
274− "loc_end = " ++ show loc_end ++ "}"
273+ showsPrec d (LocShow Loc{..}) = showParen (d >= 11) ( showString "Loc {"
274+ . field "loc_filename" loc_filename
275+ . field "loc_package" loc_package
276+ . field "loc_module" loc_module
277+ . field "loc_start" loc_start
278+ . showString "loc_end = " . shows loc_end
279+ . showChar '}'
280+ )
281+ where
282+ field n v = showString n . showString " = " . shows v . showString ", "
283+
275284
276285
277286instance ToJSON a => ToJSON (Item a) where