vault 0.3.0.4 → 0.3.0.5
raw patch · 4 files changed
+15/−2 lines, 4 files
Files
- CHANGELOG.md +4/−0
- src/Data/Vault/ST/ST.hs +4/−0
- src/Data/Vault/ST/backends/GHC.hs +5/−0
- vault.cabal +2/−2
CHANGELOG.md view
@@ -1,5 +1,9 @@ ## Changelog for the `vault` package +**0.3.0.5**++* Add support for GHC type roles extension, using the `RoleAnnotations` language pragma.+ **0.3.0.4** — Bump upper version bound for the `base` dependency. **0.3.0.3** — Bump upper version bound for the `base` dependency.
src/Data/Vault/ST/ST.hs view
@@ -1,3 +1,7 @@+#if __GLASGOW_HASKELL__ >= 708+{-# LANGUAGE RoleAnnotations #-}+#endif+ module Data.Vault.ST.LAZINESS ( -- * Vault Vault, Key,
src/Data/Vault/ST/backends/GHC.hs view
@@ -18,6 +18,11 @@ newtype Vault s = Vault (Map Unique Any) newtype Key s a = Key Unique +#if __GLASGOW_HASKELL__ >= 708+type role Vault nominal+type role Key nominal nominal+#endif+ newKey = STUnsafe.unsafeIOToST $ Key <$> newUnique lookup (Key k) (Vault m) = fromAny <$> Map.lookup k m
vault.cabal view
@@ -1,5 +1,5 @@ Name: vault-Version: 0.3.0.4+Version: 0.3.0.5 Synopsis: a persistent store for values of arbitrary types Description: A /vault/ is a persistent store for values of arbitrary types.@@ -10,7 +10,7 @@ hence the name. . Also provided is a /locker/ type, representing a store for a single element.- + Category: Data License: BSD3 License-file: LICENSE