packages feed

HsOpenSSL 0.11.4.16 → 0.11.4.17

raw patch · 3 files changed

+45/−26 lines, 3 filesdep +old-localedep ~timePVP ok

version bump matches the API change (PVP)

Dependencies added: old-locale

Dependency ranges changed: time

API changes (from Hackage documentation)

Files

ChangeLog view
@@ -1,9 +1,23 @@+2019-09-13  Vladimir Shabanov  <dev@vshabanov.com>++	* HsOpenSSL.cabal (Version): Bump version to 0.11.4.17++	* Allow old time, allows building with bundled time back to GHC-7.4+	by Oleg Grenrus @phadej (#46)+ 2019-01-21  Vladimir Shabanov  <dev@vshabanov.com> +	* HsOpenSSL.cabal (Version):+	Added upper version bounds to all dependencies (#41)++2019-01-21  Vladimir Shabanov  <dev@vshabanov.com>+ 	* HsOpenSSL.cabal (Version): Bump version to 0.11.4.16  	* Compatibility for network-3.0.0 	by Roman Borschel romanb (#40)++	* .travis.yml: Fixed build. Updated to last 3 GHC versions.  2018-09-08  Vladimir Shabanov  <dev@vshabanov.com> 
HsOpenSSL.cabal view
@@ -12,7 +12,7 @@     <http://hackage.haskell.org/package/tls>, which is a pure Haskell     implementation of SSL.     .-Version:       0.11.4.16+Version:       0.11.4.17 License:       PublicDomain License-File:  COPYING Author:        Adam Langley, Mikhail Vorozhtsov, PHO, Taru Karttunen@@ -23,7 +23,7 @@ Category:      Cryptography Cabal-Version: 1.12 Tested-With:-    GHC==8.2.1, GHC==8.0.2, GHC==7.10.3+    GHC==8.8.1, GHC==8.6.5, GHC==8.4.4, GHC==8.2.2, GHC==8.0.2, GHC==7.10.3, GHC==7.8.4, GHC==7.6.3, GHC ==7.4.2 Build-Type:    Custom Extra-Source-Files:     AUTHORS@@ -61,6 +61,11 @@     Default:         False +flag old-locale+  description: If true, use old-locale, otherwise use time 1.5 or newer.+  manual:      False+  default:     False+ Custom-setup     setup-depends: Cabal >= 1.12,                    base  >= 4.4 && < 5@@ -68,10 +73,18 @@ Library     Build-Depends:         base       >= 4.4 && < 5,-        bytestring >= 0.9,-        network    >= 2.1,-        time       >= 1.5+        bytestring >= 0.9 && < 0.11,+        network    >= 2.1 && < 3.2,+        time       >= 1.4 && < 1.10 +    if flag(old-locale)+      build-depends:+          old-locale  >=1.0.0.2 && <1.1+        , time        >=0       && <1.5++    else+      build-depends: time >=1.5+     Build-Tools: hsc2hs >= 0.67      if flag(fast-bignum) && impl(ghc >= 7.10.1)@@ -158,7 +171,7 @@     Build-Depends:         HsOpenSSL,         base                 >= 4.4 && < 5,-        bytestring           >= 0.9+        bytestring           >= 0.9 && < 0.11     Default-Language:         Haskell2010     GHC-Options:@@ -183,7 +196,7 @@     Build-Depends:         HsOpenSSL,         base                 >= 4.4 && < 5,-        bytestring           >= 0.9+        bytestring           >= 0.9 && < 0.11     Default-Language:         Haskell2010     GHC-Options:@@ -196,7 +209,7 @@     Build-Depends:         HsOpenSSL,         base                 >= 4.4 && < 5,-        bytestring           >= 0.9+        bytestring           >= 0.9 && < 0.11     Default-Language:         Haskell2010     GHC-Options:
OpenSSL/ASN1.hsc view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE EmptyDataDecls           #-} {-# LANGUAGE ForeignFunctionInterface #-} module OpenSSL.ASN1@@ -29,6 +30,10 @@ import           OpenSSL.BN import           OpenSSL.Utils +#if !MIN_VERSION_time(1,5,0)+import System.Locale+#endif+ {- ASN1_OBJECT --------------------------------------------------------------- -}  data ASN1_OBJECT@@ -125,26 +130,13 @@              _ASN1_TIME_print bioPtr time                   >>= failIf_ (/= 1)          timeStr <- bioRead bio-         case parseTimeM True locale "%b %e %H:%M:%S %Y %Z" timeStr of+#if MIN_VERSION_time(1,5,0)	       +         case parseTimeM True defaultTimeLocale "%b %e %H:%M:%S %Y %Z" timeStr of+#else+         case parseTime defaultTimeLocale "%b %e %H:%M:%S %Y %Z" timeStr of+#endif            Just utc -> return utc            Nothing  -> fail ("peekASN1Time: failed to parse time string: " ++ timeStr)-    where-      locale :: TimeLocale-      locale = TimeLocale {-                 wDays       = undefined-               , months      = [ (undefined, x)-                                     | x <- [ "Jan", "Feb", "Mar", "Apr", "May", "Jun"-                                            , "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"-                                            ]-                               ]-               , amPm        = undefined-               , dateTimeFmt = undefined-               , dateFmt     = undefined-               , timeFmt     = undefined-               , time12Fmt   = undefined-               , knownTimeZones = []-               }-  allocaASN1Time :: (Ptr ASN1_TIME -> IO a) -> IO a allocaASN1Time