diff --git a/src/Semantic/REPL.hs b/src/Semantic/REPL.hs
index 7ef0ca3e9..243b82ff9 100644
--- a/src/Semantic/REPL.hs
+++ b/src/Semantic/REPL.hs
@@ -177,7 +177,9 @@ data Command
   | Error String
 
 command :: TokenParsing m => m Command
-command = token (char ':' *> (Step <$ string "step" <|> List <$ string "list")) <?> "command"
+command = token (char ':' *> command) <?> "command"
+  where command = Step <$ string "step"
+              <|> List <$ string "list"
 
 parseString :: Parser a -> String -> Either String a
 parseString p = toResult . Trifecta.parseString (runParser p) mempty