summaryrefslogtreecommitdiff
path: root/Com
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-11-23 17:04:48 -0800
committerBen Sima <ben@bsima.me>2019-11-23 17:04:48 -0800
commitd0683537c8231bcfa1efaeb863b76dcd3949d21b (patch)
treeeb5b63cb4690e706851e1ffeb5e7a981b6527642 /Com
parent1cc135b7c772fb1ab9faadaadc304fbe9aac15b8 (diff)
Remove undefined
Diffstat (limited to 'Com')
-rw-r--r--Com/MusicMeetsComics/App.hs8
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