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