From da023dfdc4884325fb62b3b101fcc8ea44772752 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 10 May 2026 21:20:13 +0100 Subject: Clean up --- src/Index.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Index.hs') diff --git a/src/Index.hs b/src/Index.hs index 3e40cac..94c3f9e 100644 --- a/src/Index.hs +++ b/src/Index.hs @@ -418,7 +418,7 @@ parseEventID (T.uncons -> Just ('a', eid)) = do (HMS (cast hh) (cast mm) (cast ss)) ,cast off) where - multiply = sum . map (uncurry (*)) . zip (iterate (*62) 1) . reverse + multiply = sum . zipWith (*) (iterate (*62) 1) . reverse unbase62char c | '0' <= c, c <= '9' = Just (ord c - ord '0') | 'A' <= c, c <= 'Z' = Just (ord c - ord 'A' + 10) -- cgit v1.3.1