mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

newline and tab are safe control characters

Browse source 
Oops, let's let git-annex display those! Lol
This commit is contained in:
Joey Hess 2023-04-11 15:38:47 -04:00
parent 4a5f18a8ec
commit 31111d15c8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Utility/SafeOutput.hs
View file

@ -30,10 +30,17 @@ class SafeOutputtable t where
safeOutput :: t -> t safeOutput :: t -> t
instance SafeOutputtable String where instance SafeOutputtable String where
safeOutput = filter (not . isControl) safeOutput = filter safeChar
instance SafeOutputtable S.ByteString where instance SafeOutputtable S.ByteString where
safeOutput = S.filter (not . isControl . chr . fromIntegral) safeOutput = S.filter (safeChar . chr . fromIntegral)
safeChar :: Char -> Bool
safeChar c
| not (isControl c) = True
| c == '\n' = True
| c == '\t' = True
| otherwise = False
newtype IsTerminal = IsTerminal Bool newtype IsTerminal = IsTerminal Bool