{-# LANGUAGE QuasiQuotes #-}
module Main where

import Control.Monad (when)
import Data.Char (toUpper)
import System.Console.Docopt.QQ

patterns :: Docopt
patterns = [docopt|
Usage:
  myprog cat <file>
  myprog echo [--caps] <string>

Options:
  -c, --caps    Caps-lock the echoed argument
|]

main :: IO ()
main = do
  args <- parseArgs' patterns

  when (args `isPresent` (command "cat")) $ do
    file <- args `getArg` (argument "file")
    putStr =<< readFile file

  when (args `isPresent` (command "echo")) $ do
    let charTransform = if args `isPresent` (longOption "caps")
                          then toUpper
                          else id
    string <- args `getArg` (argument "string")
    putStrLn $ map charTransform string