@@ -200,10 +200,15 @@ exprArg cmd name = do
201 return $ Left ("Usage is :" ++ name ++ " <expression>")
201 return $ Left ("Usage is :" ++ name ++ " <expression>")
203+ let justOperator = do
204+ (op, fc) <- P.maybeWithNS P.operatorFC False []
206+ return $ Right $ cmd (PRef fc [] op)
203 let properArg = do
208 let properArg = do
204 t <- P.fullExpr defaultSyntax
209 t <- P.fullExpr defaultSyntax
205 return $ Right (cmd t)
210 return $ Right (cmd t)
206− try noArg <|> properArg
211+ try noArg <|> try justOperator <|> properArg