@@ -61,7 +61,7 @@ pCmd = do P.whiteSpace; try (do cmd ["q", "quit"]; eof; return Quit)
6161 <|> try (do cmd ["inline"]; P.whiteSpace; t <- P.fullExpr defaultSyntax; return (TestInline t))
6262 <|> try (do cmd ["doc"]; c <- P.constant; eof; return (DocStr (Right c)))
6363 <|> try (do cmd ["doc"]; n <- (P.fnName <|> (P.string "_|_" >> return falseTy)); eof; return (DocStr (Left n)))
64− <|> try (do cmd ["d", "def"]; some (P.char ' ') ; n <- P.fnName; eof; return (Defn n))
64+ <|> try (do cmd ["d", "def"]; P.whiteSpace; n <- P.fnName; eof; return (Defn n))
6565 <|> try (do cmd ["total"]; do n <- P.fnName; eof; return (TotCheck n))
6666 <|> try (do cmd ["t", "type"]; do P.whiteSpace; t <- P.fullExpr defaultSyntax; return (Check t))
6767 <|> try (do cmd ["u", "universes"]; eof; return Universes)