Fixes crash when no CSS file exists

Closes #247
phuhl · Jan 4, 2024 · 4826d26 · 4826d26
1 parent 6e330be
commit 4826d26
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/NotificationCenter.hs b/src/NotificationCenter.hs
@@ -135,10 +135,15 @@ deleteInCenter tState = do
 setWindowStyle tState = do
   state <- readTVarIO tState
   homeDir <- getXdgDirectory XdgConfig ""
-  let paths = [homeDir ++ "/deadd/deadd.css", "/etc/xdg/deadd/deadd.css"]
-  style <- readFile =<< (filterM doesFileExist paths >>= return . head)
-  screen <- windowGetScreen $ stMainWindow state
-  setStyle screen $ BS.pack $ style
+  paths <- filterM doesFileExist
+    $ [homeDir ++ "/deadd/deadd.css", "/etc/xdg/deadd/deadd.css"]
+    >>= return
+  if length paths > 0 then do
+    style <- readFile =<< (filterM doesFileExist paths >>= return . head)
+    screen <- windowGetScreen $ stMainWindow state
+    setStyle screen $ BS.pack $ style
+    else
+    return ()
 
 createNotiCenter :: TVar State -> Config -> Catalog -> IO ()
 createNotiCenter tState config catalog = do