Escape string for the shell

skeleton.cabal

@@ -28,5 +28,5 @@ executable skeleton
                        TypeSynonymInstances
   build-depends:       base >=4.8 && <= 5.0, filepath, process,
                        attoparsec, bytestring, hex, time,
-                       argparser
+                       argparser, posix-escape
   ghc-options:         -O2

src/Main.hs

@@ -8,6 +8,7 @@ import Control.Monad   (when)
 import Data.List           (isInfixOf)
 import System.FilePath     (takeBaseName)
 import System.Process      (readProcess, callCommand)
+import System.Posix.Escape (escape)
 import System.Console.ArgParser
 
 
@@ -42,7 +43,7 @@ getKeychain paths = do
 
 sendClipboard :: String -> IO ()
 sendClipboard text =
-  callCommand $ "echo " ++ (show text) ++ " | pbcopy"
+  callCommand $ "echo " ++ (escape text) ++ " | pbcopy"
 
 
 -- CLI arguments --