From 2338d000e14d54b31dd7a391a622d57c2e7e813a Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Tue, 14 Oct 2014 11:13:55 -0700
Subject: [PATCH] Added a favicon, so important!

Fixes #71
---
 dbapi.cabal        |   2 ++
 src/Main.hs        |   6 +++++-
 static/favicon.ico | Bin 0 -> 4286 bytes
 3 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100644 static/favicon.ico

diff --git a/dbapi.cabal b/dbapi.cabal
index adfbbba1e..ea5446319 100644
--- a/dbapi.cabal
+++ b/dbapi.cabal
@@ -17,6 +17,7 @@ executable dbapi
                      , HDBC, HDBC-postgresql
                      , warp, wai >= 3.0.1 && < 3.0.2
                      , wai-extra, wai-cors
+                     , wai-middleware-static
                      , HTTP, convertible
                      , case-insensitive
                      , http-types, scientific, time
@@ -54,6 +55,7 @@ Test-Suite spec
                      , HTTP, convertible
                      , case-insensitive
                      , wai-extra, wai-cors, containers
+                     , wai-middleware-static
                      , http-types, scientific, time
                      , bytestring, aeson, network >= 2.6
                      , text, optparse-applicative
diff --git a/src/Main.hs b/src/Main.hs
index 1407ac0c5..16dc35d24 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -13,6 +13,7 @@ import Control.Applicative
 import Options.Applicative hiding (columns)
 import Network.Wai.Middleware.Gzip (gzip, def)
 import Network.Wai.Middleware.Cors (cors)
+import Network.Wai.Middleware.Static (staticPolicy, only)
 
 argParser :: Parser AppConfig
 argParser = AppConfig
@@ -37,7 +38,10 @@ main = do
   Prelude.putStrLn $ "Listening on port " ++ (show $ configPort conf :: String)
   conn <- connectPostgreSQL' dburi
   run port $ (if configSecure conf then redirectInsecure else id)
-    . gzip def . cors corsPolicy . clientErrors
+    . gzip def
+    . cors corsPolicy
+    . clientErrors
+    . staticPolicy (only [("favicon.ico", "static/favicon.ico")])
     $ (inTransaction . authenticated (cs $ configAnonRole conf) . withSavepoint)
     app conn
   where
diff --git a/static/favicon.ico b/static/favicon.ico
new file mode 100644
index 0000000000000000000000000000000000000000..b3dd701f3955a39beae15188ea758b397894a419
GIT binary patch
literal 4286
zcmZQzU}RuqP*4ET3Jfa*7#PGD7#K7d7#I{77#JKFAmR)lAi%&N#0|k9?kFA&fk7Su
zN(>APAZ*RRz|hLTz;Krc_da7_U}$7uU;ya>=>=gTw4o^JVqjqSj{~D9#KOU)?=lv(
zxP)+-0TRch2PO_ugA2pd5TcRwvqKg0GcYjBg0k^ZYZ(|AM3EFAn}sBdmr0HuTn3V3
z7CCxG?Z+Mhq=uy+TE4?>D)FMo_Nx=nhO8FGCZL6&G|U`i8k;6$c^I1!n?f?gVCEsy
z=*A$+y+xO#0v}X%Bin&)B&gg*mItx<&=rxv2bEtSv(Pavqli_9OFz0eIp!hjK{t<7
zJ~?KQqX(C}$T5o?J+!hPRPW(3n;3C&{DQ2<l^9EKr~$bh*(@B&FocoyptCU)qY0p^
zN9Lm`#mPn1gU-gO2`YiE9+?kSLKKCp51CC!GqPG_HX(hZ@}nU@_YnAx1^naxQ2&Gf
zgFG1ff0qC8|33=;@c%#mga7~85B&e%eE9$W!w3HVX9kI(sH^`k|D*mN#0>rq@_+b0
J*kiHkKLC~49^3!`

literal 0
HcmV?d00001