never executed always true always false

    1 module HelVM.HelMA.Automata.BrainFuck.Impl.Flat.Parser where
    2 
    3 import           HelVM.HelMA.Automata.BrainFuck.Impl.Flat.Instruction
    4 
    5 import           HelVM.HelMA.Automaton.API.IOTypes
    6 import           HelVM.HelMA.Automaton.WrapTokenList
    7 
    8 import           HelVM.HelIO.ReadText
    9 
   10 -- | Parser
   11 tokenize :: Source -> FlatTreeInstructionList
   12 tokenize =  unWrapTokenList . readTokens
   13 
   14 readTokens :: Source -> Tokens
   15 readTokens source = readTextUnsafe source :: Tokens
   16 
   17 type Tokens = WrapTokenList FlatTreeInstructionList