Skip to content

Instantly share code, notes, and snippets.

@dminuoso

dminuoso/f.hs Secret

Last active January 25, 2022 10:36
Show Gist options
  • Save dminuoso/a42206fdd79b79ab73dc2eccc8f6bc53 to your computer and use it in GitHub Desktop.
Save dminuoso/a42206fdd79b79ab73dc2eccc8f6bc53 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
f.hs
f = mapM go record
where
go (ref, rec) = (ref,) <$> updateRecord rec
f = traverse go record
where
go (ref, rec) = (ref,) <$> updateRecord rec
f = for record $ \(ref, rec) -> (ref,) <$> updateRecord rec
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment