import           Data.Char  (isPrint)

import           Data.Char  (isSpace)

    | T.any isPrint x = Just $ PrintableText x
    | otherwise = Nothing

    | T.all isSpace x = Nothing
    | otherwise = Just $ PrintableText x