yaml-light-lens 0.3.3.2 → 0.3.3.3

raw patch · 2 files changed

+9/−8 lines, 2 filesdep ~lens

Dependency ranges changed: lens

Files

• src/Data/Yaml/YamlLight/Lens.hs +7/−6
• yaml-light-lens.cabal +2/−2

@@ -1,14 +1,16 @@-{-# LANGUAGE FlexibleInstances, FlexibleContexts, MultiParamTypeClasses,-             TypeFamilies, RankNTypes #-}+{-# LANGUAGE CPP, FlexibleContexts, FlexibleInstances,+             MultiParamTypeClasses, RankNTypes, TypeFamilies #-} -- | Lenses for working with YAML structures. module Data.Yaml.YamlLight.Lens (    -- * Traversals-   nth, key, key', +   nth, key, key',    -- * Yaml parsing prism    _Yaml, AsYaml(..),    -- * Numeric parsers    yamlInt, yamlReal) where+#if __GLASGOW_HASKELL__ < 710 import Control.Applicative+#endif import Control.Lens import Data.ByteString (ByteString) import qualified Data.ByteString.Char8 as BC@@ -169,14 +171,14 @@ -- -- If we just want to pull out those values that were successfully -- parsed,--- +-- -- >>> let nums = YSeq [YStr "3", YStr "2a", YStr "1"] -- >>> nums ^.. each._Yaml :: [Int] -- [3,1] -- -- Alternately, we may want to fail the entire parse if any element -- fails to parse.--- +-- -- >>> sequenceA $ map (preview _Yaml) (nums ^.. each) :: Maybe [Int] -- Nothing -- >>> let nums' = YSeq [YStr "3", YStr "2", YStr "1"]@@ -184,4 +186,3 @@ -- Just [3,2,1] _Yaml :: AsYaml a => Prism' YamlLight a _Yaml = prism' toYaml fromYaml-

@@ -1,5 +1,5 @@ name:                yaml-light-lens-version:             0.3.3.2+version:             0.3.3.3 synopsis:            Lens interface to yaml-light. description:         Lenses for working with YAML documents. license:             BSD3@@ -22,7 +22,7 @@                        bytestring,                        bytestring-lexing >= 0.5.0.2 && < 0.6,                        containers,-                       lens >= 4.0 && < 4.15,+                       lens >= 4.0 && < 4.16,                        yaml-light >= 0.1 && < 0.2    -- Needed to help Cabal's solver: