diff options
| -rw-r--r-- | Com/MusicMeetsComics/App.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |