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

@@ -4,10 +4,11 @@ import Skeleton.Types
 import Skeleton.Pretty
 import Skeleton.Parser
 
-import Control.Monad   (when)
-import Data.List       (isInfixOf)
-import System.FilePath (takeBaseName)
-import System.Process  (readProcess, callCommand)
+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 --