From d8a4ae2564cf6cd4d073b5d933d7a3c2d141e6d8 Mon Sep 17 00:00:00 2001 From: Jan Mas Rovira Date: Tue, 6 Feb 2024 18:08:38 +0100 Subject: [PATCH 1/2] add XBangPatterns --- .github/workflows/ci.yml | 1 + Makefile | 1 + 2 files changed, 2 insertions(+) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index f9ce5bfb8c..9317553a5a 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -52,6 +52,7 @@ jobs: --ghc-opt -XStandaloneDeriving --ghc-opt -XTemplateHaskell --ghc-opt -XUnicodeSyntax + --ghc-opt -XBangPatterns build-and-test-linux: runs-on: ubuntu-22.04 diff --git a/Makefile b/Makefile index 86b6becfdd..9248130526 100644 --- a/Makefile +++ b/Makefile @@ -97,6 +97,7 @@ ormolu: --ghc-opt -XMultiParamTypeClasses \ --ghc-opt -XTemplateHaskell \ --ghc-opt -XImportQualifiedPost \ + --ghc-opt -XBangPatterns \ --mode ${ORMOLUMODE} \ $(ORMOLUFILES) From 9d201e0afbc8bc984225efefe58713d42f9ccf8a Mon Sep 17 00:00:00 2001 From: Jan Mas Rovira Date: Wed, 7 Feb 2024 11:30:09 +0100 Subject: [PATCH 2/2] remove bang pragmas --- src/Juvix/Compiler/Core/Evaluator.hs | 6 ------ src/Juvix/Compiler/Tree/Evaluator.hs | 5 ----- src/Juvix/Prelude/Base.hs | 6 ------ 3 files changed, 17 deletions(-) diff --git a/src/Juvix/Compiler/Core/Evaluator.hs b/src/Juvix/Compiler/Core/Evaluator.hs index 1d53737642..072299228a 100644 --- a/src/Juvix/Compiler/Core/Evaluator.hs +++ b/src/Juvix/Compiler/Core/Evaluator.hs @@ -1,9 +1,3 @@ -{-# LANGUAGE BangPatterns #-} -{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} - -{-# HLINT ignore "Avoid restricted extensions" #-} -{-# HLINT ignore "Avoid restricted flags" #-} - module Juvix.Compiler.Core.Evaluator where import Control.Exception qualified as Exception diff --git a/src/Juvix/Compiler/Tree/Evaluator.hs b/src/Juvix/Compiler/Tree/Evaluator.hs index 2809bf2d50..5d27c3ed6c 100644 --- a/src/Juvix/Compiler/Tree/Evaluator.hs +++ b/src/Juvix/Compiler/Tree/Evaluator.hs @@ -1,8 +1,3 @@ -{-# LANGUAGE BangPatterns #-} -{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} - -{-# HLINT ignore "Avoid restricted extensions" #-} -{-# HLINT ignore "Avoid restricted flags" #-} module Juvix.Compiler.Tree.Evaluator where import Control.Exception qualified as Exception diff --git a/src/Juvix/Prelude/Base.hs b/src/Juvix/Prelude/Base.hs index 97dd23708d..9da32ed13a 100644 --- a/src/Juvix/Prelude/Base.hs +++ b/src/Juvix/Prelude/Base.hs @@ -1,9 +1,3 @@ -{-# LANGUAGE BangPatterns #-} -{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} - -{-# HLINT ignore "Avoid restricted extensions" #-} -{-# HLINT ignore "Avoid restricted flags" #-} - module Juvix.Prelude.Base ( module Juvix.Prelude.Base, module Control.Applicative,