diff options
| author | Chris Wells <chris@mathematicaster.org> | 2024-12-04 13:23:40 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2024-12-04 13:23:40 -0600 |
| commit | c9cc52175073c5e690ea7eb30aad23d0d1776435 (patch) | |
| tree | a9fe3508fc60e3909ebe6a65dc77b44c367342d7 /src/WWW/Colors/Hex.hs | |
| parent | d7be39cd8a16e22f6f8784fdae06c223df5864c1 (diff) | |
| download | assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.tar assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.tar.gz assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.tar.bz2 assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.tar.lz assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.tar.xz assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.tar.zst assets-c9cc52175073c5e690ea7eb30aad23d0d1776435.zip | |
Trying to write css
Diffstat (limited to 'src/WWW/Colors/Hex.hs')
| -rw-r--r-- | src/WWW/Colors/Hex.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/WWW/Colors/Hex.hs b/src/WWW/Colors/Hex.hs deleted file mode 100644 index 1773e66..0000000 --- a/src/WWW/Colors/Hex.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} -module WWW.Colors.Hex - ( HexColor - ) where - -import Data.Colour -import Digrams.Attributes -import Language.Haskell.TH.Quote - - -newtype HexColor = HexColor ByteString - deriving (Eq, Generic, Ord) - -instance Bounded HexColor where - maxBound = HexColor "\255\255\255" - minBound = HexColor "\NUL\NUL\NUL" - - -instance Color HexColor where - - - - -hex :: QuasiQuoter -hex = QuasiQuoter - { quoteExp = parseit - , quotePat = failure "quotePat" - , quoteType = failure "quoteType" - , quoteDec = failure "quoteDec" - } where - failure s = const $ fail $ "No " <> s <> " defined for the hexcolor quasiquoter." - parseit s = case undefined of - Nothing -> fail $ "Can't understand " <> s <> " as a valid hex color." - Just h -> h `seq` [|h|] |