From d8ed744f2f42a5edcaca485388d0d8cd6000e405 Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Thu, 5 May 2016 18:27:28 +0200
Subject: [PATCH] Add argument shorthands

---
 src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 8d8a959..da89c38 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE RecordWildCards #-}
+-- | Main module
+module Main where
 
 import Control.Monad             (when, forever)
 import Data.Text                 (unpack)
@@ -26,18 +28,22 @@ options :: Parser Options
 options = Options 
   <$> switch
       ( long "interactive"
+     <> short 'i'
      <> help "Manually insert numbers from a dice" )
   <*> optional (option auto
       ( long "dictionary"
+     <> short 'd'
      <> metavar "FILEPATH"
      <> help "Specify dictionary filepath" ))
   <*> option auto
       ( long "length"
+     <> short 'l'
      <> value 6
      <> metavar "N"
      <> help "Number of words in a passphrase")
   <*> option auto
      ( long "phrases"
+    <> short 'p'
     <> value 1
     <> metavar "M"
     <> help "Number of passphrases to generate" )