From 61e21346a6947327bf5394f6c73499621c494986 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 10 Apr 2020 16:33:00 -0700 Subject: Deploy herocomics.app production server This also includes some drive-by formatting changes and config changes needed to get it up and running. --- Com/MusicMeetsComics/App.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Com/MusicMeetsComics/App.hs') 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 -- cgit v1.2.3