From 26ea39dc679b66807d4eac1c1c6e860d84bc33f4 Mon Sep 17 00:00:00 2001 From: Steffen Date: Tue, 17 Sep 2024 17:58:52 +0200 Subject: [PATCH] fix(lpr): print log sorting works now --- src/Handler/PrintCenter.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index c139a2b00..ce701debc 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -534,10 +534,10 @@ getPrintLogR = do ] dbtSorting = mconcat [ singletonMap "time" $ SortColumn (E.^. TransactionLogTime) - , singletonMap "status" $ SortColumn (\r -> r E.^. TransactionLogTime E.->>. "interface-success") - , singletonMap "interface" $ SortColumn (\r -> r E.^. TransactionLogTime E.->>. "interface-name" ) - , singletonMap "subtype" $ SortColumn (\r -> r E.^. TransactionLogTime E.->>. "interface-subtype") - , singletonMap "info" $ SortColumn (\r -> r E.^. TransactionLogTime E.->>. "interface-info" ) + , singletonMap "status" $ SortColumn (\r -> r E.^. TransactionLogInfo E.->>. "interface-success") + , singletonMap "interface" $ SortColumn (\r -> r E.^. TransactionLogInfo E.->>. "interface-name" ) + , singletonMap "subtype" $ SortColumn (\r -> r E.^. TransactionLogInfo E.->>. "interface-subtype") + , singletonMap "info" $ SortColumn (\r -> r E.^. TransactionLogInfo E.->>. "interface-info" ) ] dbtFilter = mempty dbtFilterUI = mempty