From d282ade792b39af41b381a73e701153ff414fd49 Mon Sep 17 00:00:00 2001
From: Tim Dysinger <tim@dysinger.net>
Date: Thu, 16 Jun 2016 16:12:53 -0700
Subject: [PATCH] Force SSL after metrics middleware (not before)

---
 Application.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Application.hs b/Application.hs
index 05207c8..b4fd26f 100644
--- a/Application.hs
+++ b/Application.hs
@@ -75,8 +75,8 @@ makeApplication foundation = do
     -- Create the WAI application and apply middlewares
     appPlain <- toWaiAppPlain foundation
 
-    let middleware = forceSSL' (appSettings foundation)
-                   . prometheus def
+    let middleware = prometheus def
+                   . forceSSL' (appSettings foundation)
                    . logWare
                    . defaultMiddlewaresNoLogging