hydrogen-parsing 0.11 → 0.12

raw patch · 2 files changed

+15/−4 lines, 2 filesdep ~hydrogen-preludedep ~parsecPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: hydrogen-prelude, parsec

API changes (from Hackage documentation)

Files

• hydrogen-parsing.cabal +3/−3
• src/Hydrogen/Parsing.hs +12/−1

@@ -1,5 +1,5 @@ name:                   hydrogen-parsing-version:                0.11+version:                0.12 homepage:               https://scravy.de/hydrogen-parsing/ synopsis:               Hydrogen Parsing Utilities license:                MIT@@ -20,8 +20,8 @@                         , Hydrogen.Parsing.Char   build-depends:        base ==4.7.*                         , containers ==0.5.*-                        , hydrogen-prelude ==0.11-                        , parsec ==3.1.*+                        , hydrogen-prelude ==0.12+                        , parsec ==3.*   hs-source-dirs:       src   ghc-options:          -Wall   default-language:     Haskell2010

@@ -27,6 +27,7 @@   , tryReadDate   , tryReadTime   , tryReadBool+  , tryReadLink   ) where  import Hydrogen.Prelude@@ -213,7 +214,17 @@     "FALSE" -> return False     _ -> Nothing -+tryReadLink :: String -> Maybe String+tryReadLink xs+    | xs =~ url = Just xs+    | otherwise = Nothing+  where+    url = concat [+        "^[a-z](-?[a-z0-9])*(\\.[a-z](-?[a-z0-9])*)+"+      , "(/([a-z0-9_.=-]|%[a-fA-F0-9]{2}|%u[a-fA-F0-9]{4})*)+"+      , "(\\?([a-z0-9_.=-]|%[a-fA-F0-9]{2}|%u[a-fA-F0-9]{4})*)?$"+      ]+   -- | Infix to postfix notation (an implementation of the Shunting-Yard-Algorithm) sya :: (Ord p, Eq o)     => (a -> Maybe o)   -- ^ Determine operator