From e4503ded60932c6d4c82dd806a57b6fc9656b82e Mon Sep 17 00:00:00 2001
From: Paul Rouse <pgr@doynton.org>
Date: Tue, 13 Oct 2015 15:22:30 +0100
Subject: [PATCH] Remove unnecessary underscores in guessApprootOr

---
 yesod-core/Yesod/Core/Class/Yesod.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-core/Yesod/Core/Class/Yesod.hs b/yesod-core/Yesod/Core/Class/Yesod.hs
index 30226f12..6c4a582b 100644
--- a/yesod-core/Yesod/Core/Class/Yesod.hs
+++ b/yesod-core/Yesod/Core/Class/Yesod.hs
@@ -842,13 +842,13 @@ guessApproot = guessApprootOr ApprootRelative
 --
 -- Since 1.4.16
 guessApprootOr :: Approot site -> Approot site
-guessApprootOr fallback = ApprootRequest $ \_master req ->
+guessApprootOr fallback = ApprootRequest $ \master req ->
     case W.requestHeaderHost req of
         Nothing -> case fallback of
                        ApprootRelative  -> ""
                        ApprootStatic t  -> t
-                       ApprootMaster f  -> f _master
-                       ApprootRequest f -> f _master req
+                       ApprootMaster f  -> f master
+                       ApprootRequest f -> f master req
         Just host ->
             (if Network.Wai.Request.appearsSecure req
                 then "https://"