diff options
| author | Joris | 2017-11-12 22:58:23 +0100 |
|---|---|---|
| committer | Joris | 2017-11-12 22:58:23 +0100 |
| commit | 213cf7ede058b781fc957de2cd9f6a5988c08004 (patch) | |
| tree | edaa0aded649f6c63883637ee46bbb20b1851ddb /server/src/Design/Color.hs | |
| parent | 30f786e277b4ece6a09311de364082691f261ca3 (diff) | |
| download | budget-213cf7ede058b781fc957de2cd9f6a5988c08004.tar.gz budget-213cf7ede058b781fc957de2cd9f6a5988c08004.tar.bz2 budget-213cf7ede058b781fc957de2cd9f6a5988c08004.zip | |
Add mocked pages
Diffstat (limited to 'server/src/Design/Color.hs')
| -rw-r--r-- | server/src/Design/Color.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 |