summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeterSimons <>2017-07-17 06:54:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-07-17 06:54:00 (GMT)
commit5500785c36a4661e9944a1347dc07256d7836cea (patch)
tree1d809fb21fb3eb0774f346e3d372f2a5c434cf1a
parentf76590bace4ffdec685c1241d577e66c705087a4 (diff)
version 1.0.1HEAD1.0.1master
-rw-r--r--Main.hs5
-rw-r--r--titlecase.cabal7
2 files changed, 8 insertions, 4 deletions
diff --git a/Main.hs b/Main.hs
index 21c7381..2eddba9 100644
--- a/Main.hs
+++ b/Main.hs
@@ -4,4 +4,7 @@ import Data.Text.Titlecase
import System.Environment
main :: IO ()
-main = getArgs >>= putStrLn . titlecase . unwords
+main = getArgs >>= parseArgs >>= putStrLn . titlecase
+ where parseArgs :: [String] -> IO String
+ parseArgs [] = getContents
+ parseArgs xs = return $ unwords xs
diff --git a/titlecase.cabal b/titlecase.cabal
index 71aebb4..365be8c 100644
--- a/titlecase.cabal
+++ b/titlecase.cabal
@@ -1,14 +1,15 @@
--- This file has been generated from package.yaml by hpack version 0.17.0.
+-- This file has been generated from package.yaml by hpack version 0.18.1.
--
-- see: https://github.com/sol/hpack
name: titlecase
-version: 1
+version: 1.0.1
license: BSD3
license-file: LICENSE
author: Nikita Karetnikov,
Peter Simons,
- Aaron Wolf
+ Aaron Wolf,
+ Serg Nesterov
maintainer: Peter Simons <simons@cryp.to>
homepage: https://github.com/peti/titlecase#readme
bug-reports: https://github.com/peti/titlecase/issues