graphula 2.0.0.1 → 2.0.0.2
raw patch · 5 files changed
+18/−11 lines, 5 files
Files
- CHANGELOG.md +5/−1
- README.md +1/−0
- graphula.cabal +9/−2
- src/Graphula.hs +2/−8
- test/README.lhs +1/−0
CHANGELOG.md view
@@ -1,6 +1,10 @@-## [*Unreleased*](https://github.com/freckle/graphula/compare/v2.0.0.1...main)+## [*Unreleased*](https://github.com/freckle/graphula/compare/v2.0.0.2...main) None++## [v2.0.0.1](https://github.com/freckle/graphula/compare/v2.0.0.1...v2.0.0.2)++- Support GHC-8.10 and unliftio-core 2.0.0 ## [v2.0.0.1](https://github.com/faktory/graphula/tree/v2.0.0.1)
README.md view
@@ -38,6 +38,7 @@ import Graphula.UUIDKey import Test.Hspec import Test.QuickCheck+import Text.Markdown.Unlit () instance (ToBackendKey SqlBackend a) => Arbitrary (Key a) where arbitrary = toSqlKey <$> arbitrary
graphula.cabal view
@@ -1,6 +1,6 @@ cabal-version: 1.12 name: graphula-version: 2.0.0.1+version: 2.0.0.2 license: MIT license-file: LICENSE maintainer: Freckle Education@@ -51,6 +51,10 @@ unliftio >=0.2.13.1 && <0.3, unliftio-core >=0.1.2.0 && <0.2 + if impl(ghc >=8.10)+ ghc-options:+ -Wno-missing-safe-haskell-mode -Wno-prepositive-qualified-module+ test-suite readme type: exitcode-stdio-1.0 main-is: README.lhs@@ -80,8 +84,11 @@ persistent-sqlite >=2.10.6.2 && <2.11, persistent-template >=2.8.2.3 && <2.9, resourcet >=1.2.4.2 && <1.3,- semigroups >=0.19.1 && <0.20, text >=1.2.4.0 && <1.3, transformers >=0.5.6.2 && <0.6, unliftio-core >=0.1.2.0 && <0.2, uuid >=1.3.13 && <1.4++ if impl(ghc >=8.10)+ ghc-options:+ -Wno-missing-safe-haskell-mode -Wno-prepositive-qualified-module
src/Graphula.hs view
@@ -168,9 +168,6 @@ lift = GraphulaT . lift instance MonadUnliftIO m => MonadUnliftIO (GraphulaT n m) where- {-# INLINE askUnliftIO #-}- askUnliftIO = GraphulaT $ withUnliftIO $ \u ->- return $ UnliftIO $ unliftIO u . runGraphulaT' {-# INLINE withRunInIO #-} withRunInIO inner = GraphulaT $ withRunInIO $ \run -> inner $ run . runGraphulaT'@@ -223,9 +220,6 @@ deriving newtype (Functor, Applicative, Monad, MonadIO, MonadReader (IORef (m ()))) instance MonadUnliftIO m => MonadUnliftIO (GraphulaIdempotentT m) where- {-# INLINE askUnliftIO #-}- askUnliftIO = GraphulaIdempotentT $ withUnliftIO $ \u ->- return $ UnliftIO $ unliftIO u . runGraphulaIdempotentT' {-# INLINE withRunInIO #-} withRunInIO inner = GraphulaIdempotentT $ withRunInIO $ \run -> inner $ run . runGraphulaIdempotentT'@@ -352,7 +346,7 @@ -- note: The contents of a tuple must be ordered as they appear in the -- definition of @a@. type Dependencies a- type instance Dependencies a = ()+ type instance Dependencies _a = () -- | Specify the method for resolving a node's key --@@ -369,7 +363,7 @@ -- externally. -- type KeySource a :: KeySourceType- type instance KeySource a = 'SourceDefault+ type instance KeySource _a = 'SourceDefault -- | Assign values from the 'Dependencies' collection to a value. -- 'dependsOn' must be an idempotent operation.
test/README.lhs view
@@ -38,6 +38,7 @@ import Graphula.UUIDKey import Test.Hspec import Test.QuickCheck+import Text.Markdown.Unlit () instance (ToBackendKey SqlBackend a) => Arbitrary (Key a) where arbitrary = toSqlKey <$> arbitrary