From a2f08d9d4bcd7e908a1f5b975d118a7d53dfe7da Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Tue, 4 Sep 2018 14:23:50 +0200
Subject: [PATCH] use short by default

---
 src-exe/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src-exe/Main.hs b/src-exe/Main.hs
index 58bca8d..9a2bd2c 100644
--- a/src-exe/Main.hs
+++ b/src-exe/Main.hs
@@ -34,7 +34,7 @@ data AppOptions = AppOptions { genMode :: GenMode
 
 optParser :: Parser AppOptions
 optParser = AppOptions
-            <$> (fromMaybe Lovecraftian <$> optional (opt toGenMode "gen" 'g' "Possible values: short, dict"))
+            <$> (fromMaybe Short <$> optional (opt toGenMode "gen" 'g' "Possible values: short, dict"))
             <*> optional (optPath "dict" 'd' "dictionary (predefined names are: english, first-names, generic, literary) or use any file path (one word per line)")
             <*> optional (optInt "len" 'n' "complexity depends on the gen chosen")