Skip to content

Instantly share code, notes, and snippets.

@axman6

axman6/partsOf template.hs

Created January 22, 2023 05:26
Show Gist options
  • Save axman6/6adbe8cb80e13b257ae62eca661ff90e to your computer and use it in GitHub Desktop.
Save axman6/6adbe8cb80e13b257ae62eca661ff90e to your computer and use it in GitHub Desktop.
Download ZIP
Lens partsOf template
Raw
partsOf template.hs
>>> ("Hello", ("there", ["are","several"]),Left "Strings", "in", "here")
& partsOf template %~ (reverse :: [String] -> [String])
("here",("in",["Strings","several"]),Left "are","there","Hello")
>>> ("Hello", ("there", ["are","several"]),Left "Strings", "in", "here")
& partsOf template %~ (reverse :: String -> String)
("erehn",("isgni",["rtS","lareves"]),Left "eraereh","to","lleH")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment