-- | A decent colour-pallet for users to select between,
-- for where we can't provide free-form colour selection.
module Text.HTML.Form.Colours(tailwindColours, Colour) where

import Text.HTML.Form.I18n (i18n)

-- Finally a good use for Tailwind!
-- Otherwise it strikes me as little more than an illegible alternative to
-- the `style` attribute!

-- | Stores a CSS hexcode, with preceding "#"
type Colour = String
-- | The Tailwind colour pallet: https://v1.tailwindcss.com/docs/customizing-colors#default-color-palette
tailwindColours :: String -> [(String, [(Int, Colour)])]
tailwindColours :: String -> [(String, [(Int, String)])]
tailwindColours String
lang = [
    String -> String
i String
"Slate"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f8fafc", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f1f5f9", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e2e8f0", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#cbd5e1",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#94a3b8", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#64748b", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#475569", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#334155",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1e293b", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0f172a", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#020617"],
    String -> String
i String
"Gray"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f9fafb", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f3f4f6", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e5e7eb", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d1d5db",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#9ca3af", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#6b7280", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4b5563", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#374151",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1f2937", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#111827", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#030712"],
    String -> String
i String
"Zinc"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fafafa", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f4f4f5", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e4e4e7", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d4d4d8",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a1a1aa", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#71717a", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#52525b", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#3f3f46",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#27272a", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#18181b", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#09090b"],
    String -> String
i String
"Neutral"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fafafa", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f5f5f5", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e5e5e5", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d4d4d4",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a3a3a3", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#737373", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#404040", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#404040",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#262626", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#171717", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0a0a0a"],
    String -> String
i String
"Stone"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fafaf9", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f5f5f4", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e7e5e4", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d6d3d1",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a8a29e", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#78716c", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#57534e", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#44403c",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#292524", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1c1917", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0c0a09"],
    String -> String
i String
"Red"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fef2f2", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fee2e2", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fecaca", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fca5a5",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f87171", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ef4444", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#dc2626", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#b91c1c",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#991b1b", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#7f1d1d", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#450a0a"],
    String -> String
i String
"Orange"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fff7ed", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ffedd5", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fed7aa", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fdba74",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fb923c", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f97316", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ea580c", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#c2410c",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#9a3412", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#7c2d12", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#431407"],
    String -> String
i String
"Amber"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fffbeb", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fef3c7", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fde68a", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fcd34d",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fbbf24", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f59e0b", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d97706", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#b45309",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#92400e", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#78350f", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#451a03"],
    String -> String
i String
"Yellow"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fefce8", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fef9c3", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fef08a", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fde047",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#facc15", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#eab308", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ca8a04", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a16207",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#854d0e", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#713f12", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#422006"],
    String -> String
i String
"Lime"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f7fee7", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ecfccb", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d9f99d", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#bef264",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a3e635", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#84cc16", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#65a30d", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4d7c0f",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#3f6212", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#365314", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1a2e05"],
    String -> String
i String
"Green"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f0fdf4", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#dcfce7", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#bbf7d0", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#86efac",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4ade80", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#22c55e", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#16a34a", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#15803d",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#166534", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#14532d", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#052e16"],
    String -> String
i String
"Emerald"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ecfdf5", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d1fae5", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a7f3d0", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#6ee7b7",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#34d399", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#10b981", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#059669", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#047857",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#065f46", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#064e3b", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#022c22"],
    String -> String
i String
"Teal"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f0fdfa", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ccfbf1", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#99f6e4", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#5eead4",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#2dd4bf", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#14b8a6", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0f766e", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0f766e",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#115e59", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#134e4a", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#042f2e"],
    String -> String
i String
"Cyan"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ecfeff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#cffafe", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a5f3fc", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#67e8f9",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#22d3ee", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#06b6d4", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0891b2", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0e7490",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#155e75", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#164e63", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#083344"],
    String -> String
i String
"Sky"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f0f9ff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e0f2fe", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#bae6fd", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#7dd3fc",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#38bdf8", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0ea5e9", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0284c7", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0369a1",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#075985", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#0c4a6e", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#082f49"],
    String -> String
i String
"Blue"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#eff6ff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#dbeafe", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#bfdbfe", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#93c5fd",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#60a5fa", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#3b82f6", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#2563eb", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1d4ed8",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1e40af", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1e3a8a", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#172554"],
    String -> String
i String
"Indigo"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#eef2ff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e0e7ff", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#c7d2fe", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a5b4fc",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#818cf8", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#6366f1", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4f46e5", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4338ca",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#3730a3", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#312e81", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#1e1b4b"],
    String -> String
i String
"Violet"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f5f3ff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ede9fe", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ddd6fe", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#c4b5fd",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a78bfa", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#8b5cf6", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#7c3aed", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#6d28d9",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#5b21b6", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4c1d95", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#2e1065"],
    String -> String
i String
"Purple"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#faf5ff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f3e8ff", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e9d5ff", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d8b4fe",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#c084fc", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a855f7", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#9333ea", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#7e22ce",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#6b21a8", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#581c87", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#3b0764"],
    String -> String
i String
"Fuchsia"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fdf4ff", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fae8ff", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f5d0fe", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f0abfc",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e879f9", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#d946ef", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#c026d3", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#a21caf",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#86198f", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#701a75", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4a044e"],
    String -> String
i String
"Pink"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fdf2f8", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fce7f3", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fbcfe8", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f9a8d4",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f472b6", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ec4899", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#db2777", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#be185d",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#9d174d", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#831843", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#500724"],
    String -> String
i String
"Rose"String -> [(Int, String)] -> (String, [(Int, String)])
forall a b. a -> b -> (a, b)
~>[Int
50Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fff1f2", Int
100Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#ffe4e6", Int
200Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fecdd3", Int
300Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fda4af",
            Int
400Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#fb7185", Int
500Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#f43f5e", Int
600Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#e11d48", Int
700Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#be123c",
            Int
800Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#9f1239", Int
900Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#881337", Int
950Int -> String -> (Int, String)
forall a b. a -> b -> (a, b)
~>String
"#4c0519"]
  ] where i :: String -> String
i = String -> String -> String
i18n String
lang

(~>) :: a -> b -> (a, b)
a
a ~> :: forall a b. a -> b -> (a, b)
~> b
b = (a
a, b
b)