Skip to content

Commit f192c53

Browse files
committed
Drop support for 7.4.x so we can use InstanceSigs to deal with Functor not being a super class of Monad on older GHC
1 parent bfeacef commit f192c53

3 files changed

Lines changed: 5 additions & 5 deletions

File tree

.github/workflows/ci.yml

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -68,8 +68,6 @@ jobs:
6868
allow-failure: false
6969
- ghc: 7.6.3
7070
allow-failure: false
71-
- ghc: 7.4.2
72-
allow-failure: false
7371
fail-fast: false
7472
steps:
7573
- name: apt

logict-sequence.cabal

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ extra-source-files: CHANGELOG.md
2929
README.md
3030
include/logict-sequence.h
3131

32-
tested-with: GHC ==7.4.2 GHC ==7.6.3 GHC ==7.8.4 GHC ==7.10.3 GHC ==8.0.2 GHC ==8.2.2 GHC ==8.4.4 GHC ==8.6.5 GHC ==8.8.4 GHC ==8.10.4
32+
tested-with: GHC ==7.6.3 GHC ==7.8.4 GHC ==7.10.3 GHC ==8.0.2 GHC ==8.2.2 GHC ==8.4.4 GHC ==8.6.5 GHC ==8.8.4 GHC ==8.10.4
3333

3434

3535
source-repository head
@@ -47,7 +47,7 @@ library
4747

4848
-- LANGUAGE extensions used by modules in this package.
4949
-- other-extensions:
50-
build-depends: base >=4.5 && <5
50+
build-depends: base >=4.6 && <5
5151
build-depends: mtl >=2.0 && <2.3
5252
build-depends: type-aligned >= 0.9.6 && < 0.10
5353
build-depends: sequence >= 0.9.8 && < 0.10
@@ -71,7 +71,7 @@ test-suite logict-test
7171
hs-source-dirs: test
7272
default-language: Haskell2010
7373
main-is: Test.hs
74-
build-depends: base >=4.5 && < 5
74+
build-depends: base >=4.6 && < 5
7575
, logict-sequence
7676
, hedgehog
7777
, hspec

src/Control/Monad/Logic/Sequence/Internal.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,7 @@
99
{-# LANGUAGE DeriveGeneric #-}
1010
{-# LANGUAGE DeriveFunctor #-}
1111
{-# LANGUAGE ScopedTypeVariables #-}
12+
{-# LANGUAGE InstanceSigs #-}
1213

1314
#ifdef USE_PATTERN_SYNONYMS
1415
{-# LANGUAGE PatternSynonyms #-}
@@ -329,6 +330,7 @@ instance (Functor m, Monad m) => Monoid (SeqT m a) where
329330

330331
instance MonadTrans SeqT where
331332
{-# INLINE lift #-}
333+
lift :: (Functor m, Monad m) => m a -> SeqT m a
332334
lift m = fromView (m >>= single)
333335

334336
instance (Functor m, Monad m) => MonadLogic (SeqT m) where

0 commit comments

Comments
 (0)