@@ -200,10 +200,15 @@ exprArg cmd name = do
200200 eof
201201 return $ Left ("Usage is :" ++ name ++ " <expression>")
202202
203+ let justOperator = do
204+ (op, fc) <- P.maybeWithNS P.operatorFC False []
205+ eof
206+ return $ Right $ cmd (PRef fc [] op)
207+
203208 let properArg = do
204209 t <- P.fullExpr defaultSyntax
205210 return $ Right (cmd t)
206− try noArg <|> properArg
211+ try noArg <|> try justOperator <|> properArg
207212
208213
209214