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")