From 213cf7ede058b781fc957de2cd9f6a5988c08004 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 12 Nov 2017 22:58:23 +0100
Subject: Add mocked pages

---
 server/src/Design/Color.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'server/src/Design/Color.hs')

diff --git a/server/src/Design/Color.hs b/server/src/Design/Color.hs
index 06c468e..9a5797f 100644
--- a/server/src/Design/Color.hs
+++ b/server/src/Design/Color.hs
@@ -1,6 +1,8 @@
 module Design.Color where
 
+import Clay
 import qualified Clay.Color as C
+import Data.Text (Text)
 
 -- http://chir.ag/projects/name-that-color/#969696
 
@@ -33,3 +35,6 @@ silver = C.rgb 200 200 200
 
 dustyGray :: C.Color
 dustyGray = C.rgb 150 150 150
+
+toString :: C.Color -> Text
+toString = plain . unValue . value
-- 
cgit v1.2.3