A bit more functional

1 files changed, 3 insertions, 4 deletions

diff --git a/src/Game/Toaster.hs b/src/Game/Toaster.hs
index 75907eb..b0920c5 100644
--- a/src/Game/Toaster.hs
+++ b/src/Game/Toaster.hs
@@ -7,6 +7,7 @@ module Game.Toaster
   )
 where
 
+import Data.Foldable (traverse_)
 import qualified Game.BitmapFont as BM
 import qualified SDL
 
@@ -50,7 +51,5 @@ update t = case t.current of
       | otherwise = Nothing
 
 render :: SDL.Renderer -> Toaster -> IO ()
-render renderer t = case t.current of
-  Nothing -> pure ()
-  Just toast -> do
-    BM.renderTextSolid renderer t.font 4 toast.y toast.message
+render renderer t =
+  traverse_ (\toast -> BM.renderTextSolid renderer t.font 4 toast.y toast.message) t.current