remove extra parenthesis

mstksg · Dec 4, 2024 · edab4c4 · edab4c4
1 parent f9a56d7
commit edab4c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/common/AOC/Common.hs b/common/AOC/Common.hs
@@ -932,7 +932,7 @@ mapToStore :: (Ord k, Num k) => Map k a -> Store k (Maybe a)
 mapToStore mp = store (`M.lookup` mp) 0
 
 mapFromStore :: Num k => Set k -> Store k a -> Map k a
-mapFromStore ks = experiment (\x -> M.fromSet (+ x) ks)
+mapFromStore ks = experiment \x -> M.fromSet (+ x) ks
 
 mapMaybeLines :: (String -> Maybe a) -> String -> [a]
 mapMaybeLines f = mapMaybe f . lines