Rewrite in Rust

1 files changed, 0 insertions, 31 deletions

diff --git a/common/src/Common/Validation/Payment.hs b/common/src/Common/Validation/Payment.hs
deleted file mode 100644
index e3c447a..0000000
--- a/common/src/Common/Validation/Payment.hs
+++ /dev/null
@@ -1,31 +0,0 @@
-module Common.Validation.Payment
-  ( name
-  , cost
-  , date
-  , category
-  ) where
-
-import           Data.Text                (Text)
-import           Data.Time.Calendar       (Day)
-import           Data.Validation          (Validation)
-import qualified Data.Validation          as V
-
-import           Common.Model             (CategoryId)
-import qualified Common.Msg               as Msg
-import qualified Common.Validation.Atomic as Atomic
-
-name :: Text -> Validation Text Text
-name = Atomic.nonEmpty
-
-cost :: Text -> Validation Text Int
-cost input = V.bindValidation (Atomic.number input) Atomic.nonNullNumber
-
-date :: Text -> Validation Text Day
-date = Atomic.day
-
-category :: [CategoryId] -> CategoryId -> Validation Text CategoryId
-category cs c =
-  if elem c cs then
-    V.Success c
-  else
-    V.Failure $ Msg.get Msg.Form_InvalidCategory