Work around lts-7/ghc-8.0.1 panic

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
 

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