never executed always true always false

    1 module HelVM.HelMA.Automata.LazyK.Lexer where
    2 
    3 import           HelVM.HelMA.Automaton.API.IOTypes
    4 
    5 import qualified Data.Text                         as Text
    6 
    7 filterComments ∷ Source → Source
    8 filterComments source = mconcat $ removeComment <$> lines source
    9 
   10 removeComment ∷ Source → Source
   11 removeComment = fst . Text.break isHash
   12 
   13 isHash ∷ Char → Bool
   14 isHash c = '#' == c