From 3cf0188d2a7c21ab8b5f0a9dc6d2bd6efa9582d6 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Thu, 17 Sep 2020 18:35:00 +0200
Subject: [PATCH] refactor(schedule): catMaybes

---
 src/Handler/Schedule.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Schedule.hs b/src/Handler/Schedule.hs
index 0e464a0e5..65502d92c 100644
--- a/src/Handler/Schedule.hs
+++ b/src/Handler/Schedule.hs
@@ -50,8 +50,8 @@ postScheduleR = do
           mapM_ formFailure2Alerts errs
           $logInfoS "SCHEDULE-VIEW" $ "encountered error(s): " <> tshow errs
           (return . FormFailure . mconcat . catMaybes . (fmap $ preview _FormFailure) . toNullable) errs
-        | otherwise -> case catMaybes (formResultToMaybe <$> viewRess) of  -- TODO: rethink this case
-          [Just sView] -> do
+        | otherwise -> case catMaybes $ catMaybes (formResultToMaybe <$> viewRess) of  -- TODO: rethink this case
+          [sView] -> do
             $logInfoS "SCHEDULE-VIEW" $ "encountered single view result: " <> tshow sView <> ", all results: " <> tshow viewRess
             return $ FormSuccess sView
           _       -> do
@@ -73,8 +73,8 @@ postScheduleR = do
           mapM_ formFailure2Alerts errs
           $logInfoS "SCHEDULE-OFFSET" $ "encountered error(s): " <> tshow errs
           (return . FormFailure . mconcat . catMaybes . (fmap $ preview _FormFailure) . toNullable) errs
-        | otherwise -> case catMaybes (formResultToMaybe <$> offsetRess) of  -- TODO: rethink this case
-          [Just offset] -> do
+        | otherwise -> case catMaybes $ catMaybes (formResultToMaybe <$> offsetRess) of  -- TODO: rethink this case
+          [offset] -> do
             $logInfoS "SCHEDULE-OFFSET" $ "encountered single offset result: " <> tshow offset <> ", all results: " <> tshow offsetRess
             (return . FormSuccess . addOffset currentScheduleOffset . schedBtnOffset) offset
           _ -> do