acme-cuteboy (empty) → 0.1.0.0

raw patch · 5 files changed

+73/−0 lines, 5 filesdep +acme-cuteboydep +basesetup-changed

Dependencies added: acme-cuteboy, base

Files

• ChangeLog.md +5/−0
• Setup.hs +2/−0
• acme-cuteboy.cabal +28/−0
• src/Acme/CuteBoy.hs +18/−0
• src/Main.hs +20/−0

@@ -0,0 +1,5 @@+# Revision history for acme-cuteboy++## 0.1.0.0  -- YYYY-mm-dd++* First version. Released on an unsuspecting world.

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

@@ -0,0 +1,28 @@+name:                acme-cuteboy+version:             0.1.0.0+synopsis:            Maybe gives you a cute boy+description:         A package which exists solely to try and give+                     the user a cute boy. Executable and library are both+                     available.+homepage:            https://github.com/chessai/acme-cuteboy+license:             PublicDomain+author:              chessai+maintainer:          chessai1996@gmail.com+category:            Acme+build-type:          Simple+extra-source-files:  ChangeLog.md+cabal-version:       >=1.10++library+  exposed-modules:     Acme.CuteBoy+  build-depends:       base >= 3 && <6+  hs-source-dirs:      src+  default-language:    Haskell2010++executable CuteBoy+  build-depends:       base >=3 && <6+                     , acme-cuteboy +  hs-source-dirs:      src +  main-is:             Main.hs+  other-modules:       Acme.CuteBoy +  default-language:    Haskell2010

@@ -0,0 +1,18 @@+module Acme.CuteBoy where++-- Cute boys capable of doing cute stuff+data CuteBoy = Ed | Edd | Eddy | Rolf deriving Show++-- | Did you expect a cute boy? Too bad!+cuteBoy :: Maybe CuteBoy+cuteBoy = Just Rolf++printCuteBoy :: IO ()+printCuteBoy = case cuteBoy of+  Just Rolf -> putStrLn $ concat [ "You expected some cute boy?\n"+                                 , "Too bad!\n"+                                 , "It is I, Rolf!\n"+                                 , "Your garden is overgrown and\n"+                                 , "your cucumbers are soft!"+                                 ]+  _ -> pure ()

@@ -0,0 +1,20 @@+module Main where++import Acme.CuteBoy++import System.Environment (getArgs)++main :: IO ()+main = do+  args <- getArgs+  if "-h" `elem` args || "--help" `elem` args+    then putStrLn help+    else printCuteBoy+  where+    help = concat [ "CuteBoy -- attempts to get a cute boy.\n"+                  , "\n"+                  , "Flags:\n"+                  , "-h,  --help    Prints this help menu\n"+                  , "\n"+                  , "Anything else  attempts to get a cute boy."+                  ]