network-uri-lenses 0.1.0.0 → 0.2.0.0

raw patch · 3 files changed

+47/−46 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• network-uri-lenses.cabal +6/−5
• src/Network/URI/Lens.hs +41/−0
• src/Network/Uri/Lens.hs +0/−41

@@ -1,12 +1,14 @@--- This file has been generated from package.yaml by hpack version 0.21.2.+-- This file has been generated from package.yaml by hpack version 0.28.2. -- -- see: https://github.com/sol/hpack ----- hash: 47df182ac5d2dbfbfc074244e450688952351a375b7bd27579b87c7c860a4683+-- hash: 2b1fbe44f1172d1b1073641815a5b70101548418f23246cdcd7f08aec05d2997  name:           network-uri-lenses-version:        0.1.0.0+version:        0.2.0.0+synopsis:       Lenses for network-uri description:    Please see the README on GitHub at <https://github.com/githubuser/network-uri-lenses#readme>+category:       Network homepage:       https://github.com/jappeace/network-uri-lenses#readme bug-reports:    https://github.com/jappeace/network-uri-lenses/issues author:         Jappie Klooster@@ -16,7 +18,6 @@ license-file:   LICENSE build-type:     Simple cabal-version:  >= 1.10- extra-source-files:     ChangeLog.md     README.md@@ -27,7 +28,7 @@  library   exposed-modules:-      Network.Uri.Lens+      Network.URI.Lens   other-modules:       Paths_network_uri_lenses   hs-source-dirs:

@@ -0,0 +1,41 @@+-- | Network uri lenses+module Network.URI.Lens+  ( regNameLens+  , userInfoLens+  , portLens+  , uriAuthLens+  , uriSchemeLens+  , uriPathLens+  , uriQueryLens+  , uriFragmentLens+  ) where++import           Control.Lens+import           Network.URI++regNameLens :: Lens' URIAuth String+regNameLens = lens uriRegName (\parent newVal -> parent {uriRegName = newVal})++userInfoLens :: Lens' URIAuth String+userInfoLens =+  lens uriUserInfo (\parent newVal -> parent {uriUserInfo = newVal})++portLens :: Lens' URIAuth String+portLens = lens uriPort (\parent newVal -> parent {uriPort = newVal})++uriAuthLens :: Lens' URI (Maybe URIAuth)+uriAuthLens =+  lens uriAuthority (\parent newVal -> parent {uriAuthority = newVal})++uriSchemeLens :: Lens' URI String+uriSchemeLens = lens uriScheme (\parent newVal -> parent {uriScheme = newVal})++uriPathLens :: Lens' URI String+uriPathLens = lens uriPath (\parent newVal -> parent {uriPath = newVal})++uriQueryLens :: Lens' URI String+uriQueryLens = lens uriQuery (\parent newVal -> parent {uriQuery = newVal})++uriFragmentLens :: Lens' URI String+uriFragmentLens =+  lens uriFragment (\parent newVal -> parent {uriFragment = newVal})

@@ -1,41 +0,0 @@--- | Network uri lenses-module Network.Uri.Lens-  ( regNameLens-  , userInfoLens-  , portLens-  , uriAuthLens-  , uriSchemeLens-  , uriPathLens-  , uriQueryLens-  , uriFragmentLens-  ) where--import           Control.Lens-import           Network.URI--regNameLens :: Lens' URIAuth String-regNameLens = lens uriRegName (\parent newVal -> parent {uriRegName = newVal})--userInfoLens :: Lens' URIAuth String-userInfoLens =-  lens uriUserInfo (\parent newVal -> parent {uriUserInfo = newVal})--portLens :: Lens' URIAuth String-portLens = lens uriPort (\parent newVal -> parent {uriPort = newVal})--uriAuthLens :: Lens' URI (Maybe URIAuth)-uriAuthLens =-  lens uriAuthority (\parent newVal -> parent {uriAuthority = newVal})--uriSchemeLens :: Lens' URI String-uriSchemeLens = lens uriScheme (\parent newVal -> parent {uriScheme = newVal})--uriPathLens :: Lens' URI String-uriPathLens = lens uriPath (\parent newVal -> parent {uriPath = newVal})--uriQueryLens :: Lens' URI String-uriQueryLens = lens uriQuery (\parent newVal -> parent {uriQuery = newVal})--uriFragmentLens :: Lens' URI String-uriFragmentLens =-  lens uriFragment (\parent newVal -> parent {uriFragment = newVal})