diff options
| author | Ben Sima <ben@bsima.me> | 2019-11-23 17:04:48 -0800 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-11-23 17:04:48 -0800 |
| commit | d0683537c8231bcfa1efaeb863b76dcd3949d21b (patch) | |
| tree | eb5b63cb4690e706851e1ffeb5e7a981b6527642 /Com/MusicMeetsComics | |
| parent | 1cc135b7c772fb1ab9faadaadc304fbe9aac15b8 (diff) | |
Remove undefined
Diffstat (limited to 'Com/MusicMeetsComics')
| -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 |