diff options
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) |