(#181) added no-role-reveal option to start

hjwylde · Jun 5, 2016 · bed3488 · bed3488
1 parent 3c9c2e7
commit bed3488
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/app/Werewolf/Options.hs b/app/Werewolf/Options.hs
@@ -186,6 +186,7 @@ start = fmap Start $ Start.Options
         variantOption = option $ readerAsk >>= \opt -> case opt of
             "standard"          -> return Standard
             "no-role-knowledge" -> return NoRoleKnowledge
+            "no-role-reveal"    -> return NoRoleReveal
             _                   -> readerError $ "unrecognised variant `" ++ opt ++ "'"
 
         extraRolesOption = fmap (Start.Use . filter (/= T.empty) . T.splitOn "," . T.pack) (strOption $ mconcat