From fd7e783484f9951a353911d379c14db2c8ce1fd2 Mon Sep 17 00:00:00 2001 From: Heinrich Lukas Weil Date: Tue, 28 Feb 2023 11:43:45 +0100 Subject: [PATCH] change dsl operator names --- src/FsSpreadsheet/DSL/Operators.fs | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/src/FsSpreadsheet/DSL/Operators.fs b/src/FsSpreadsheet/DSL/Operators.fs index 382e1134..1e3788ab 100644 --- a/src/FsSpreadsheet/DSL/Operators.fs +++ b/src/FsSpreadsheet/DSL/Operators.fs @@ -56,21 +56,21 @@ module Operators = /// Required value operator /// /// If expression does fail, returns a missing required value - let inline (!) (v : 'T) : SheetEntity = + let inline (~+.) (v : 'T) : SheetEntity = let f = fun s -> NoneRequired([message s]) parseAny f v /// Optional value operator /// /// If expression does fail, returns a missing optional value - let inline (?) (v : 'T) : SheetEntity = + let inline (~-.) (v : 'T) : SheetEntity = let f = fun s -> NoneOptional([message s]) parseAny f v /// Required value operator /// /// If expression does fail, returns a missing required value - let inline (>!) (f : 'T -> 'U) (v : 'T) : SheetEntity = + let inline (+.) (f : 'T -> 'U) (v : 'T) : SheetEntity = try f v |> DataType.InferCellValue @@ -81,7 +81,7 @@ module Operators = /// Optional value operator /// /// If expression does fail, returns a missing optional value - let inline (>?) (f : 'T -> 'U) (v : 'T) : SheetEntity = + let inline (-.) (f : 'T -> 'U) (v : 'T) : SheetEntity = try f v |> DataType.InferCellValue @@ -89,12 +89,6 @@ module Operators = with | err -> NoneOptional([Exception err]) - let inline (!<) (v : 'T) (f : 'T -> 'U) = - f >! v - - let inline (?<) (v : 'T) (f : 'T -> 'U) = - f >? v - /// Optional operators for cell, row, column and sheet expressions let optional = OptionalSource()