From 1f63402bbbd0a6aa5e4624616d81d645e41dbf85 Mon Sep 17 00:00:00 2001
From: sabadev <saba@sabadev.xyz>
Date: Sun, 21 Mar 2021 00:35:34 -0400
Subject: [PATCH] Factored out default color selection in getIndividualColor to
 eliminate code duplication.

---
 src/Server.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Server.hs b/src/Server.hs
index c3d0fbe..e2897ee 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -51,5 +51,8 @@ getColorFromInput lightDark redColor greenColor blueColor = do
   C.rgba red green blue 1
 
 getIndividualColor :: LightDark -> Maybe Integer -> Integer
-getIndividualColor Dark value = flip mod 0x100 $ fromMaybe 0x00 value
-getIndividualColor Light value = flip mod 0x100 $ fromMaybe 0xFF value
+getIndividualColor color = flip mod 0x100 . fromMaybe (defaultColor color)
+
+defaultColor :: LightDark -> Integer
+defaultColor Dark = 0x00
+defaultColor Light = 0xFF
-- 
2.20.1