diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-10 16:33:00 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-10 18:23:38 -0700 |
| commit | 61e21346a6947327bf5394f6c73499621c494986 (patch) | |
| tree | eeb9d3525137e09ee482710b651ab2c004c2cee6 /Com/MusicMeetsComics/App.hs | |
| parent | 2263381b305092390984561855856ab725561cf6 (diff) | |
Deploy herocomics.app production server
This also includes some drive-by formatting changes and config changes
needed to get it up and running.
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 |