Allow 'c' argument for auto-paste

1 files changed, 2 insertions, 0 deletions

diff --git a/2021/Input.hs b/2021/Input.hs
index afce44e..be95b9b 100644
--- a/2021/Input.hs
+++ b/2021/Input.hs
@@ -2,6 +2,7 @@ module Input where
 
 import System.Environment
 import System.IO
+import System.Process
 
 
 getInput :: Int -> IO [String]
@@ -12,6 +13,7 @@ getInput day = do
     str <- case args of
         ["-"] -> getContents
         [] -> readFile fname
+        ["c"] -> readProcess "xsel" ["-bo"] ""
         _ -> do
             hPutStrLn stderr $ "WARNING: Unrecognised command-line parameters " ++ show args ++
                                ", reading from " ++ fname