parsers/Parsers/Brainfuck/Types.hs

   1 {-# LANGUAGE DeriveAnyClass #-}
   2 {-# LANGUAGE DeriveGeneric #-}
   3 {-# LANGUAGE DeriveLift #-}
   4 module Parsers.Brainfuck.Types where
   5
   6 import Control.DeepSeq (NFData)
   7 import Data.Eq (Eq(..))
   8 import Data.Function (($), (.))
   9 import Data.Functor.Identity (Identity(..))
  10 import GHC.Generics (Generic)
  11 import Text.Show (Show(..))
  12 import qualified Language.Haskell.TH as TH
  13 import qualified Language.Haskell.TH.Syntax as TH
  14 import Symantic.Univariant.Reify
  15 import qualified Symantic.Univariant.Lang as H
  16 import Symantic.Parser
  17 import qualified System.IO as IO
  18 import Control.Monad (Monad(..))
  19
  20 data Instruction
  21   = Forward
  22   | Backward
  23   | Increment
  24   | Decrement
  25   | Input
  26   | Output
  27   | Loop [Instruction]
  28   deriving (Show, Eq, TH.Lift, Generic, NFData)