Skip to content

Instantly share code, notes, and snippets.

@adrianparvino

adrianparvino/Page.hs

Created August 12, 2018 05:57
Show Gist options
  • Save adrianparvino/68865ffc3a016f191e20e38ac23542fc to your computer and use it in GitHub Desktop.
Save adrianparvino/68865ffc3a016f191e20e38ac23542fc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Page.hs
let (Just requestVerification) = loginPage ^. responseBody
. to parseTags
. to (find (~== "<input name='__RequestVerificationToken'>"))
& mapped
%~ fromAttrib "__RequestVerificationToken"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment