sanitize gpg output and chat messages

Just in case, only allow printable characters in this, not control
characters.

1 files changed, 10 insertions, 0 deletions

diff --git a/Output.hs b/Output.hs
new file mode 100644
index 0000000..5aa3072
--- /dev/null
+++ b/Output.hs
@@ -0,0 +1,10 @@
+module Output where
+
+import Data.Char
+
+sanitizeForDisplay :: String -> String
+sanitizeForDisplay = map go
+  where
+	go c
+		| isPrint c = c
+		| otherwise = '?'