mirror of
https://github.com/marcosh/crem.git
synced 2024-10-26 11:52:20 +03:00
enable CI also for GHC 9.4.4
This commit is contained in:
parent
a63e79d519
commit
8d0714421f
15
.github/workflows/ci.yml
vendored
15
.github/workflows/ci.yml
vendored
@ -13,7 +13,7 @@ jobs:
|
|||||||
build:
|
build:
|
||||||
strategy:
|
strategy:
|
||||||
matrix:
|
matrix:
|
||||||
ghc: ['9.0.2', '9.2.7']
|
ghc: ['9.0.2', '9.2.7', '9.4.4']
|
||||||
cabal: ['3.8.1.0', '3.6.2.0', '3.4.1.0']
|
cabal: ['3.8.1.0', '3.6.2.0', '3.4.1.0']
|
||||||
os: ['ubuntu-latest', 'macos-latest']
|
os: ['ubuntu-latest', 'macos-latest']
|
||||||
exclude:
|
exclude:
|
||||||
@ -53,16 +53,3 @@ jobs:
|
|||||||
|
|
||||||
- name: Test on HEAD dependencies
|
- name: Test on HEAD dependencies
|
||||||
run: cabal test --index-state HEAD
|
run: cabal test --index-state HEAD
|
||||||
# strategy:
|
|
||||||
# matrix:
|
|
||||||
# ghc: ['90', '92']
|
|
||||||
# os: ['ubuntu-latest', 'macos-latest']
|
|
||||||
# runs-on: ${{ matrix.os }}
|
|
||||||
# name: Build with GHC ${{ matrix.ghc }} on ${{ matrix.os }}
|
|
||||||
# steps:
|
|
||||||
# - uses: actions/checkout@v3
|
|
||||||
# - uses: cachix/install-nix-action@v18
|
|
||||||
# with:
|
|
||||||
# nix_path: nixpkgs=channel:nixos-22.11
|
|
||||||
# - name: Build
|
|
||||||
# run: nix build -L .#crem.ghc${{ matrix.ghc }}
|
|
||||||
|
@ -6,6 +6,8 @@
|
|||||||
{-# OPTIONS_GHC -Wno-all-missed-specialisations #-}
|
{-# OPTIONS_GHC -Wno-all-missed-specialisations #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
||||||
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
||||||
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
|
|
||||||
|
@ -4,6 +4,8 @@
|
|||||||
{-# LANGUAGE UndecidableInstances #-}
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
||||||
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
||||||
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
|
|
||||||
|
@ -6,6 +6,8 @@
|
|||||||
{-# LANGUAGE UndecidableInstances #-}
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
||||||
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
||||||
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
|
|
||||||
|
@ -5,6 +5,8 @@
|
|||||||
{-# LANGUAGE UndecidableInstances #-}
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
||||||
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
||||||
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
|
|
||||||
|
@ -4,6 +4,8 @@
|
|||||||
> {-# LANGUAGE UndecidableInstances #-}
|
> {-# LANGUAGE UndecidableInstances #-}
|
||||||
> -- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
> -- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wmissing-deriving-strategies
|
||||||
> {-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
> {-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
||||||
|
> -- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
> {-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
> -- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
> -- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
> {-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
> {-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
>
|
>
|
||||||
|
@ -9,6 +9,8 @@
|
|||||||
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
{-# OPTIONS_GHC -Wno-missing-deriving-strategies #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunrecognised-pragmas
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunrecognised-pragmas
|
||||||
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
|
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
|
||||||
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
|
|
||||||
|
@ -4,6 +4,8 @@
|
|||||||
{-# LANGUAGE UndecidableInstances #-}
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wredundant-constraints
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wredundant-constraints
|
||||||
{-# OPTIONS_GHC -Wno-redundant-constraints #-}
|
{-# OPTIONS_GHC -Wno-redundant-constraints #-}
|
||||||
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunticked-promoted-constructors
|
||||||
|
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
|
||||||
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
-- https://downloads.haskell.org/ghc/latest/docs/users_guide/using-warnings.html#ghc-flag--Wunused-type-patterns
|
||||||
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
{-# OPTIONS_GHC -Wno-unused-type-patterns #-}
|
||||||
|
|
||||||
@ -50,17 +52,17 @@ data AllowTransition (topology :: Topology vertex) (initial :: vertex) (final ::
|
|||||||
AllowIdentityEdge :: AllowTransition topology a a
|
AllowIdentityEdge :: AllowTransition topology a a
|
||||||
-- | If @a@ is the start and @b@ is the end of the first edge,
|
-- | If @a@ is the start and @b@ is the end of the first edge,
|
||||||
-- then @map@ contains an edge from @a@ to @b@
|
-- then @map@ contains an edge from @a@ to @b@
|
||||||
AllowFirstEdge :: AllowTransition ('Topology ('(a, b : l1) : l2)) a b
|
AllowFirstEdge :: AllowTransition ('Topology ('(a, b ': l1) ': l2)) a b
|
||||||
-- | If we know that we have an edge from @a@ to @b@ in a topology,
|
-- | If we know that we have an edge from @a@ to @b@ in a topology,
|
||||||
-- then we also have an edge from @a@ to @b@ if we add another edge out of @a@
|
-- then we also have an edge from @a@ to @b@ if we add another edge out of @a@
|
||||||
AllowAddingEdge
|
AllowAddingEdge
|
||||||
:: AllowTransition ('Topology ('(a, l1) : l2)) a b
|
:: AllowTransition ('Topology ('(a, l1) ': l2)) a b
|
||||||
-> AllowTransition ('Topology ('(a, x : l1) : l2)) a b
|
-> AllowTransition ('Topology ('(a, x ': l1) ': l2)) a b
|
||||||
-- | If we know that we have an edge from @a@ to @b@ in @map@,
|
-- | If we know that we have an edge from @a@ to @b@ in @map@,
|
||||||
-- then we also have an edge from @a@ to @b@ if we add another vertex
|
-- then we also have an edge from @a@ to @b@ if we add another vertex
|
||||||
AllowAddingVertex
|
AllowAddingVertex
|
||||||
:: AllowTransition ('Topology map) a b
|
:: AllowTransition ('Topology map) a b
|
||||||
-> AllowTransition ('Topology (x : map)) a b
|
-> AllowTransition ('Topology (x ': map)) a b
|
||||||
|
|
||||||
-- | The `AllowedTransition` type class enables to automatically perform proof search
|
-- | The `AllowedTransition` type class enables to automatically perform proof search
|
||||||
-- for a `AllowTransition` term.
|
-- for a `AllowTransition` term.
|
||||||
@ -68,14 +70,14 @@ data AllowTransition (topology :: Topology vertex) (initial :: vertex) (final ::
|
|||||||
class AllowedTransition (topology :: Topology vertex) (initial :: vertex) (final :: vertex) where
|
class AllowedTransition (topology :: Topology vertex) (initial :: vertex) (final :: vertex) where
|
||||||
allowsTransition :: AllowTransition topology initial final
|
allowsTransition :: AllowTransition topology initial final
|
||||||
|
|
||||||
instance {-# INCOHERENT #-} AllowedTransition ('Topology ('(a, b : l1) : l2)) a b where
|
instance {-# INCOHERENT #-} AllowedTransition ('Topology ('(a, b ': l1) ': l2)) a b where
|
||||||
allowsTransition = AllowFirstEdge
|
allowsTransition = AllowFirstEdge
|
||||||
|
|
||||||
instance {-# INCOHERENT #-} AllowedTransition ('Topology ('(a, l1) : l2)) a b => AllowedTransition ('Topology ('(a, x : l1) : l2)) a b where
|
instance {-# INCOHERENT #-} AllowedTransition ('Topology ('(a, l1) ': l2)) a b => AllowedTransition ('Topology ('(a, x ': l1) ': l2)) a b where
|
||||||
allowsTransition =
|
allowsTransition =
|
||||||
AllowAddingEdge (allowsTransition :: AllowTransition ('Topology ('(a, l1) : l2)) a b)
|
AllowAddingEdge (allowsTransition :: AllowTransition ('Topology ('(a, l1) ': l2)) a b)
|
||||||
|
|
||||||
instance {-# INCOHERENT #-} AllowedTransition ('Topology map) a b => AllowedTransition ('Topology (x : map)) a b where
|
instance {-# INCOHERENT #-} AllowedTransition ('Topology map) a b => AllowedTransition ('Topology (x ': map)) a b where
|
||||||
allowsTransition =
|
allowsTransition =
|
||||||
AllowAddingVertex (allowsTransition :: AllowTransition ('Topology map) a b)
|
AllowAddingVertex (allowsTransition :: AllowTransition ('Topology map) a b)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user