Skip to content

Instantly share code, notes, and snippets.

@L7R7

L7R7/FromJSONUri.hs

Created December 9, 2021 18:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save L7R7/20fb25f57fefd392294ae7a9c9ba3254 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save L7R7/20fb25f57fefd392294ae7a9c9ba3254 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
FromJSONUri.hs
instance FromJSON URI where
parseJSON = withText "URI" $ \v -> maybe (fail "Bad URI") pure (parseURI (toString v))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment