1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
{- Copyright 2017 Joey Hess <id@joeyh.name> - - Licensed under the GNU AGPL version 3 or higher. -} module Output where import Data.Char sanitizeForDisplay :: String -> String sanitizeForDisplay = map go where go c | isPrint c = c | otherwise = '?'