From 9a6094444fbfa31301e046fb84659d042b441a18 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 3 Oct 2023 14:15:41 +0200 Subject: Cleanup in lens. --- module/hnh/util/coverage.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'module/hnh/util/coverage.scm') diff --git a/module/hnh/util/coverage.scm b/module/hnh/util/coverage.scm index 9349c3a1..2517e81f 100644 --- a/module/hnh/util/coverage.scm +++ b/module/hnh/util/coverage.scm @@ -63,14 +63,14 @@ (fold (lambda (line state) (match (parse-coverage-line line) (('DA line hits) - (modify state (compose-lenses car* lines) + (modify state (compose-lens car* lines) (lambda (lines) (cons (cons line hits) lines)))) (('SF source) - (set state (compose-lenses car* filename) source)) + (set state car* filename source)) (('LH hit) - (set state (compose-lenses car* hit-lines) hit)) + (set state car* hit-lines hit)) (('LF lines) - (set state (compose-lenses car* total-lines) lines)) + (set state car* total-lines lines)) (('end-of-record) (cons (coverage-info) state)))) (list (coverage-info)) -- cgit v1.2.3