test/Parser.hs

   1 {-# LANGUAGE ExistentialQuantification #-}
   2 {-# LANGUAGE FlexibleContexts #-}
   3 {-# LANGUAGE NoMonomorphismRestriction #-}
   4 {-# LANGUAGE TypeApplications #-}
   5 {-# OPTIONS_GHC -Wno-missing-signatures #-}
   6 -- For TH splices
   7 {-# LANGUAGE TemplateHaskell #-}
   8 {-# LANGUAGE Rank2Types #-}
   9 {-# LANGUAGE ScopedTypeVariables #-}
  10 {-# LANGUAGE UnboxedTuples #-}
  11 {-# OPTIONS_GHC -Wno-unused-local-binds #-}
  12 {-# OPTIONS_GHC -Wno-unused-matches #-}
  13 module Parser where
  14
  15 import Data.Either (Either(..))
  16 import Data.Text (Text)
  17 import Text.Show (Show)
  18 import Symantic.Parser
  19 import Grammar
  20 import qualified Data.IORef as IORef
  21 import qualified Language.Haskell.TH as TH
  22 import qualified Language.Haskell.TH.Syntax as TH
  23 import Control.DeepSeq
  24 import System.IO (IO)