1 files changed, 0 insertions, 27 deletions
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)