aboutsummaryrefslogtreecommitdiff
path: root/cli
diff options
context:
space:
mode:
Diffstat (limited to 'cli')
-rw-r--r--cli/Main.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/cli/Main.hs b/cli/Main.hs
index 5d6b445..bcd7d54 100644
--- a/cli/Main.hs
+++ b/cli/Main.hs
@@ -72,9 +72,5 @@ main = do
cnt <- getContent (args `O.isPresent` O.longOption "file") text
case getExpiration expire of
Nothing -> die "invalid value for expiration"
- Just e -> do
- rc <- share bin e cnt
- case rc of
- Left err -> die err
- Right uri -> putStrLn uri
+ Just e -> share bin e cnt >>= putStrLn