From d0683537c8231bcfa1efaeb863b76dcd3949d21b Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 23 Nov 2019 17:04:48 -0800
Subject: Remove undefined

---
 Com/MusicMeetsComics/App.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Com/MusicMeetsComics')

diff --git a/Com/MusicMeetsComics/App.hs b/Com/MusicMeetsComics/App.hs
index 2a9220b..7f5b47f 100644
--- a/Com/MusicMeetsComics/App.hs
+++ b/Com/MusicMeetsComics/App.hs
@@ -386,9 +386,9 @@ discover :: Model -> View Action
 discover model@(Model { userLibrary = lib}) = template "discover"
   [ topbar
   , main_ [id_ "app-body"] $ case appComics model of
-                               NotAsked -> undefined
+                               NotAsked -> [loading]
                                Loading -> [loading]
-                               Failure e -> undefined
+                               Failure e -> [nocomics]
                                Success [] -> [nocomics]
                                Success (comic:rest) ->
                                  [ feature comic lib
@@ -478,9 +478,9 @@ data ComicReaderView = Spread | Full
 
 comicPlayer :: ComicId -> Page -> Model -> View Action
 comicPlayer _ _ model = case appComics model of
-    NotAsked -> undefined
+    NotAsked -> loading
     Loading -> loading
-    Failure e -> undefined
+    Failure e -> nocomics
     Success comics -> case cpState model of
         NotReading -> template "comic-player" [ text "error: not reading" ]
         Cover id -> viewOr404 comics comicSpread id 1 model
-- 
cgit v1.2.3