From 17eea6450ee4cb86607d4dba334c1f37d1b9bc3b Mon Sep 17 00:00:00 2001
From: Julien Moutinho <julm+symantic-parser@sourcephile.fr>
Date: Tue, 20 Oct 2020 22:21:13 +0200
Subject: [PATCH] Remove unused extensions
---
src/Symantic/Parser/Grammar/Optimize.hs | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/src/Symantic/Parser/Grammar/Optimize.hs b/src/Symantic/Parser/Grammar/Optimize.hs
index 7a3f6b4..0dc3e23 100644
--- a/src/Symantic/Parser/Grammar/Optimize.hs
+++ b/src/Symantic/Parser/Grammar/Optimize.hs
@@ -1,9 +1,7 @@
-{-# LANGUAGE PatternSynonyms #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE NoPolyKinds #-}
-{-# LANGUAGE ViewPatterns #-}
-{-# LANGUAGE UndecidableInstances #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
+{-# LANGUAGE PatternSynonyms #-} -- For aliased combinators
+{-# LANGUAGE TemplateHaskell #-} -- For optimizeCombNode
+{-# LANGUAGE ViewPatterns #-} -- For optimizeCombNode
+{-# OPTIONS_GHC -fno-warn-orphans #-} -- For MakeLetName TH.Name
module Symantic.Parser.Grammar.Optimize where
import Data.Bool (Bool(..))
@@ -14,12 +12,12 @@ import Data.Foldable (all, foldr)
import Data.Function ((.))
import qualified Data.Functor as Functor
import qualified Data.List as List
+import qualified Language.Haskell.TH.Syntax as TH
import Symantic.Parser.Grammar.Combinators as Comb
import Symantic.Parser.Staging (ValueCode(..), Value(..), Code(..), getValue, getCode)
import Symantic.Univariant.Letable
import Symantic.Univariant.Trans
-import qualified Language.Haskell.TH.Syntax as TH
import qualified Symantic.Parser.Staging as Hask
-- import Debug.Trace (trace)
--
2.47.2