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 GHC.Generics (Generic)
   9 import Text.Show (Show(..))
  10 import qualified Language.Haskell.TH.Syntax as TH
  11
  12 data Instruction
  13   = Forward
  14   | Backward
  15   | Increment
  16   | Decrement
  17   | Input
  18   | Output
  19   | Loop [Instruction]
  20   deriving (Show, Eq, TH.Lift, Generic, NFData)