never executed always true always false

    1 module HelVM.HelMA.Automaton.Instruction.Extras.TextExtra where
    2 
    3 import qualified Data.Text as Text
    4 
    5 toLowerShow :: Show i => i -> Text
    6 toLowerShow = Text.toLower . show