fromDate :: Maybe Day -> Value
fromDate = mkValue (ScalarType TDate) encodeDate
fromDate :: Maybe Day -> Value
fromDate = mkValue (ScalarType TDate) encodeDate
fromDate = mkValue (ScalarType TDate) encodeDate