@@ -65,7 +65,7 @@ pCmd = do P.whiteSpace; try (do cmd ["q", "quit"]; eof; return Quit)
65 <|> try (do cmd ["inline"]; P.whiteSpace; t <- P.fullExpr defaultSyntax; return (TestInline t))
65 <|> try (do cmd ["inline"]; P.whiteSpace; t <- P.fullExpr defaultSyntax; return (TestInline t))
66 <|> try (do cmd ["doc"]; c <- P.constant; eof; return (DocStr (Right c)))
66 <|> try (do cmd ["doc"]; c <- P.constant; eof; return (DocStr (Right c)))
67 <|> try (do cmd ["doc"]; n <- (P.fnName <|> (P.string "_|_" >> return falseTy)); eof; return (DocStr (Left n)))
67 <|> 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))
69 <|> try (do cmd ["total"]; do n <- P.fnName; eof; return (TotCheck n))
69 <|> try (do cmd ["total"]; do n <- P.fnName; eof; return (TotCheck n))
70 <|> try (do cmd ["t", "type"]; do P.whiteSpace; t <- P.fullExpr defaultSyntax; return (Check t))
70 <|> try (do cmd ["t", "type"]; do P.whiteSpace; t <- P.fullExpr defaultSyntax; return (Check t))
71 <|> try (do cmd ["u", "universes"]; eof; return Universes)
71 <|> try (do cmd ["u", "universes"]; eof; return Universes)