choose-exe (empty) → 0.1.0.0

raw patch · 6 files changed

+162/−0 lines, 6 filesdep +basedep +choosedep +optparse-applicativesetup-changed

Dependencies added: base, choose, optparse-applicative, text

Files

• Data/Random/Choose/Executable.hs +46/−0
• Data/Random/Choose/Executable/Args.hs +52/−0
• Setup.hs +2/−0
• choose-exe.cabal +46/−0
• choose.hs +3/−0
• license.txt +13/−0

@@ -0,0 +1,46 @@+{- |++A command-line program that uses "Data.Random.Choose".++Its arguments are specified by "Data.Random.Choose.Executable.Args".++-}++module Data.Random.Choose.Executable ( main ) where++--------------------------------------------------------------------------------++import qualified Data.Random.Choose.Executable.Args as Args+import           Data.Random.Choose.IO              (getSelectionsIO)++import qualified Data.Text.IO as TextIO++import Control.Exception.Base (try)+import Control.Monad          (when)+import Data.Text              (Text)+import System.IO              (stdin)+import System.IO.Error        (isEOFError)++--------------------------------------------------------------------------------++main :: IO ()+-- ^ The entry point for an executable that reads lines from stdin and outputs+--   some fixed number of them, selected uniformly at random.++readLine :: IO (Maybe Text)+-- ^ Produces 'Just' a line of text, or 'Nothing' if the stream has ended.++--------------------------------------------------------------------------------++main = do+    args <- Args.getArgs+    let n = Args.getN args+    when (n > 0) $ do+        selections <- getSelectionsIO readLine n+        mapM_ TextIO.putStrLn selections++readLine = do+    lineEither <- try $ TextIO.hGetLine stdin+    case lineEither of+        Left e     -> if isEOFError e then return Nothing else ioError e+        Right line -> return $ Just line

@@ -0,0 +1,52 @@+{- |++Defines the command-line arguments for "Data.Random.Choose.Executable".++-}++module Data.Random.Choose.Executable.Args+    ( Args(..), getArgs+    -- * /n/+    , getN, defaultN, parserN+    ) where++--------------------------------------------------------------------------------++import Control.Applicative (optional)++import Data.Maybe  (fromMaybe)+import Data.Monoid ((<>))++import qualified Options.Applicative.Builder as Opt++import Options.Applicative.Extra (execParser, helper)+import Options.Applicative.Types (Parser)++--------------------------------------------------------------------------------++data Args = Args+    { argN :: Maybe Int -- ^ /n/, the number of items to choose.+    }++defaultN :: Int+-- ^ The default value for /n/ if not specified.+defaultN = 1++readInt :: Opt.ReadM Int+readInt = Opt.auto++parserN :: Parser (Maybe Int)+parserN = optional $ Opt.argument readInt $ Opt.metavar "N" <> Opt.help help+    where help = "Number of items to choose (default: " ++ show defaultN ++ ")"++getN :: Args -> Int+getN = fromMaybe defaultN . argN++parser :: Parser Args+parser = Args <$> parserN++parserInfo :: Opt.InfoMod a+parserInfo = Opt.header "Selects lines from stdin uniformly at random."++getArgs :: IO Args+getArgs = execParser $ Opt.info (helper <*> parser) parserInfo

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,46 @@+-- This file has been generated from package.yaml by hpack version 0.14.0.+--+-- see: https://github.com/sol/hpack++name:           choose-exe+version:        0.1.0.0+synopsis:       Command-line program to choose random element from a stream.+description:    A command-line program that reads lines from stdin and outputs some fixed number of them, selected uniformly at random.+category:       Application+author:         Chris Martin <ch.martin@gmail.com>+maintainer:     Chris Martin <ch.martin@gmail.com>+license:        Apache-2.0+license-file:   license.txt+build-type:     Simple+cabal-version:  >= 1.10++library+  hs-source-dirs:+      .+  ghc-options: -Wall -fwarn-unused-imports+  build-depends:+      base >= 4.7 && < 5+    , choose+    , optparse-applicative+    , text+  exposed-modules:+      Data.Random.Choose.Executable+      Data.Random.Choose.Executable.Args+  other-modules:+      Paths_choose_exe+  default-language: Haskell2010++executable choose+  main-is: choose.hs+  hs-source-dirs:+      .+  ghc-options: -Wall -fwarn-unused-imports+  build-depends:+      base >= 4.7 && < 5+    , choose+    , optparse-applicative+    , text+  other-modules:+      Data.Random.Choose.Executable+      Data.Random.Choose.Executable.Args+  default-language: Haskell2010

@@ -0,0 +1,3 @@+module Main (main) where++import Data.Random.Choose.Executable

@@ -0,0 +1,13 @@+Copyright 2016 Chris Martin++Licensed under the Apache License, Version 2.0 (the "License");+you may not use this file except in compliance with the License.+You may obtain a copy of the License at++    http://www.apache.org/licenses/LICENSE-2.0++Unless required by applicable law or agreed to in writing, software+distributed under the License is distributed on an "AS IS" BASIS,+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.+See the License for the specific language governing permissions and+limitations under the License.