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