From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Validation/Category.hs | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 server/src/Validation/Category.hs

(limited to 'server/src/Validation/Category.hs')

diff --git a/server/src/Validation/Category.hs b/server/src/Validation/Category.hs
deleted file mode 100644
index 12f2117..0000000
--- a/server/src/Validation/Category.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-module Validation.Category
-  ( createCategory
-  , editCategory
-  ) where
-
-import           Data.Text                  (Text)
-import           Data.Validation            (Validation)
-import qualified Data.Validation            as V
-
-import           Common.Model               (CreateCategoryForm (..),
-                                             EditCategoryForm (..))
-import qualified Common.Validation.Category as CategoryValidation
-import           Model.CreateCategory       (CreateCategory (..))
-import           Model.EditCategory         (EditCategory (..))
-
-createCategory :: CreateCategoryForm -> Validation Text CreateCategory
-createCategory form =
-  CreateCategory
-    <$> CategoryValidation.name (_createCategoryForm_name form)
-    <*> CategoryValidation.color (_createCategoryForm_color form)
-
-editCategory :: EditCategoryForm -> Validation Text EditCategory
-editCategory form =
-  EditCategory
-    <$> V.Success (_editCategoryForm_id form)
-    <*> CategoryValidation.name (_editCategoryForm_name form)
-    <*> CategoryValidation.color (_editCategoryForm_color form)
-- 
cgit v1.2.3