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