From e9a53b69ad68e531a789eff3128f7304fd411808 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 15 Apr 2020 15:24:32 -0700
Subject: Lint fixes, also delete Biz.Language

---
 Hero/Server.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'Hero/Server.hs')

diff --git a/Hero/Server.hs b/Hero/Server.hs
index 450bd0d..bf92f88 100644
--- a/Hero/Server.hs
+++ b/Hero/Server.hs
@@ -1,14 +1,12 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE PolyKinds #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeOperators #-}
-{-# LANGUAGE TypeSynonymInstances #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 -- | Hero web app
@@ -78,8 +76,8 @@ main = bracket startup shutdown $ uncurry Warp.run
       Left e -> Exit.die e
       Right c -> do
         db <- Database.dummy
-        say $ "hero"
-        say $ "port: " ++ (show $ heroPort c)
+        say "hero"
+        say $ "port: " ++ show $ heroPort c
         say $ "client: " ++ heroClient c
         let waiapp = app db c
         return (heroPort c, waiapp)
@@ -275,7 +273,7 @@ serverHandlers =
     :<|> chooseExperienceHandler
 
 jsonHandlers :: Database.ComicDB -> Server JsonApi
-jsonHandlers db = Database.getComics db
+jsonHandlers = Database.getComics
 
 homeHandler :: Handler (HtmlPage (View Action))
 homeHandler = pure . HtmlPage . home $ initModel homeLink
-- 
cgit v1.2.3