diff --git a/app/Werewolf/Options.hs b/app/Werewolf/Options.hs
index 2c50a48..7af8b7c 100644
--- 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