From 4398cea6b4828c0e4980e3dda244a31edcaf969d Mon Sep 17 00:00:00 2001 From: Michael Xavier Date: Fri, 3 Mar 2017 08:57:00 -0800 Subject: [PATCH] Work around lts-7/ghc-8.0.1 panic --- .../serversession-example-yesod-persistent/Application.hs | 4 +++- .../serversession-example-yesod-persistent/Handler/Home.hs | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/examples/serversession-example-yesod-persistent/Application.hs b/examples/serversession-example-yesod-persistent/Application.hs index 2595a61..a2182f5 100644 --- a/examples/serversession-example-yesod-persistent/Application.hs +++ b/examples/serversession-example-yesod-persistent/Application.hs @@ -1,3 +1,5 @@ +-- https://ghc.haskell.org/trac/ghc/ticket/12130#comment:9 +{-# LANGUAGE NoDisambiguateRecordFields, NoRecordWildCards #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Application ( getApplicationDev @@ -67,7 +69,7 @@ makeFoundation appSettings = do -- logging function. To get out of this loop, we initially create a -- temporary foundation without a real connection pool, get a log function -- from there, and then create the real foundation. - let mkFoundation appConnPool = App {..} + let mkFoundation appConnPool = App appSettings appStatic appConnPool appHttpManager appLogger tempFoundation = mkFoundation $ error "connPool forced in tempFoundation" logFunc = messageLoggerSource tempFoundation appLogger diff --git a/examples/serversession-example-yesod-persistent/Handler/Home.hs b/examples/serversession-example-yesod-persistent/Handler/Home.hs index d9c68fd..4d3b13d 100644 --- a/examples/serversession-example-yesod-persistent/Handler/Home.hs +++ b/examples/serversession-example-yesod-persistent/Handler/Home.hs @@ -1,3 +1,5 @@ +-- https://ghc.haskell.org/trac/ghc/ticket/12130#comment:9 +{-# LANGUAGE NoDisambiguateRecordFields, NoRecordWildCards #-} -- | On this serversession example, we simply provide some ways -- users may interact with the session. module Handler.Home where