From 718a348afaf6a78a0f0074330d03ac410f487a50 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Mon, 29 Feb 2016 12:34:25 +0800
Subject: zerobin -f - reads stdin

---
 cli/Main.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/cli/Main.hs b/cli/Main.hs
index bcd7d54..9e5641b 100644
--- a/cli/Main.hs
+++ b/cli/Main.hs
@@ -24,7 +24,7 @@ Usage:
 
 Options:
   -b, --bin=BIN   0bin service [default: https://paste.ec]
-  -f, --file      Paste the content of file TEXT instead of plain TEXT
+  -f, --file      Paste the content of file TEXT ("-" for stdin)
   -e, --expire=E  Set expiration of paste: once, day, week, month [default: day]
 
   -h, --help      Show this message
@@ -32,6 +32,7 @@ Options:
 Examples:
   zerobin hello                      paste "hello" for a day
   zerobin -f /etc/fstab              paste file /etc/fstab for a day
+  cat /etc/fstab | zerobin -f -      likewise
   zerobin -e once hello              paste "hello", it will burn after reading
   zerobin -b http://0bin.net hello   paste to 0bin.net
 |]
@@ -52,11 +53,10 @@ die msg = do
   exitFailure
 
 getContent :: Bool -> String -> IO BS.ByteString
-getContent asFile text =
-  if not asFile
-    then return $ C.pack text
-    else BS.readFile text
-
+getContent fromFile text
+  | fromFile && (text == "-") = BS.getContents
+  | fromFile = BS.readFile text
+  | otherwise = return $ C.pack text
 
 main :: IO ()
 main = do
-- 
cgit v1.2.3