diff options
Diffstat (limited to 'Com/MusicMeetsComics/App.hs')
| -rw-r--r-- | Com/MusicMeetsComics/App.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Com/MusicMeetsComics/App.hs b/Com/MusicMeetsComics/App.hs index fa3b8e9..4c5f60a 100644 --- a/Com/MusicMeetsComics/App.hs +++ b/Com/MusicMeetsComics/App.hs @@ -388,7 +388,7 @@ discover model@(Model { userLibrary = lib}) = template "discover" , main_ [id_ "app-body"] $ case appComics model of NotAsked -> [loading] Loading -> [loading] - Failure e -> [nocomics] + Failure _ -> [nocomics] Success [] -> [nocomics] Success (comic:rest) -> [ feature comic lib @@ -480,7 +480,7 @@ comicPlayer :: ComicId -> Page -> Model -> View Action comicPlayer _ _ model = case appComics model of NotAsked -> loading Loading -> loading - Failure e -> nocomics + Failure _ -> nocomics Success comics -> case cpState model of NotReading -> template "comic-player" [ text "error: not reading" ] Cover id -> viewOr404 comics comicSpread id 1 model |