From da2a0c13aa89705c65fdb9df2f496fb4eea29654 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jan 2020 19:22:45 +0100
Subject: Allow to remove only unused categories

---
 common/src/Common/Model/CategoryPage.hs | 9 +++++----
 common/src/Common/Validation/Atomic.hs  | 9 +++++++--
 2 files changed, 12 insertions(+), 6 deletions(-)

(limited to 'common')

diff --git a/common/src/Common/Model/CategoryPage.hs b/common/src/Common/Model/CategoryPage.hs
index 476b4ce..e20f49f 100644
--- a/common/src/Common/Model/CategoryPage.hs
+++ b/common/src/Common/Model/CategoryPage.hs
@@ -5,12 +5,13 @@ module Common.Model.CategoryPage
 import           Data.Aeson            (FromJSON, ToJSON)
 import           GHC.Generics          (Generic)
 
-import           Common.Model.Category (Category)
+import           Common.Model.Category (Category, CategoryId)
 
 data CategoryPage = CategoryPage
-  { _categoryPage_page       :: Int
-  , _categoryPage_categories :: [Category]
-  , _categoryPage_totalCount :: Int
+  { _categoryPage_page           :: Int
+  , _categoryPage_categories     :: [Category]
+  , _categoryPage_usedCategories :: [CategoryId]
+  , _categoryPage_totalCount     :: Int
   } deriving (Eq, Show, Generic)
 
 instance FromJSON CategoryPage
diff --git a/common/src/Common/Validation/Atomic.hs b/common/src/Common/Validation/Atomic.hs
index 2a356df..4bb7cad 100644
--- a/common/src/Common/Validation/Atomic.hs
+++ b/common/src/Common/Validation/Atomic.hs
@@ -7,6 +7,7 @@ module Common.Validation.Atomic
   , color
   ) where
 
+import qualified Data.Char          as Char
 import           Data.Text          (Text)
 import qualified Data.Text          as T
 import           Data.Time.Calendar (Day)
@@ -47,6 +48,10 @@ day str =
     Just d  -> V.Success d
     Nothing -> V.Failure $ Msg.get Msg.Form_InvalidDate
 
--- TODO: validate
 color :: Text -> Validation Text Text
-color str = V.Success str
+color str =
+  if T.take 1 str == "#" && T.all Char.isHexDigit (T.drop 1 str) then
+    V.Success str
+
+  else
+    V.Failure (Msg.get Msg.Form_InvalidColor)
-- 
cgit v1.2.3