diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-05-10 22:20:13 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-05-10 22:20:13 +0200 |
| commit | da023dfdc4884325fb62b3b101fcc8ea44772752 (patch) | |
| tree | 31c2db47b5aa07cb7302d52e8c9e9451000e2239 /src/Index.hs | |
| parent | e0e6b516b9dd132e067a226ff7fdf56d3e556559 (diff) | |
Clean up
Diffstat (limited to 'src/Index.hs')
| -rw-r--r-- | src/Index.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |