haskell/serversession
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Work around lts-7/ghc-8.0.1 panic

Browse Source
This commit is contained in:
Michael Xavier 2017-03-03 08:57:00 -08:00
parent 9615bb3996
commit 4398cea6b4
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/serversession-example-yesod-persistent/Application.hs
View File

@ -1,3 +1,5 @@
-- https://ghc.haskell.org/trac/ghc/ticket/12130#comment:9
{-# LANGUAGE NoDisambiguateRecordFields, NoRecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
module Application module Application
( getApplicationDev ( getApplicationDev
@ -67,7 +69,7 @@ makeFoundation appSettings = do
-- logging function. To get out of this loop, we initially create a -- logging function. To get out of this loop, we initially create a
-- temporary foundation without a real connection pool, get a log function -- temporary foundation without a real connection pool, get a log function
-- from there, and then create the real foundation. -- 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" tempFoundation = mkFoundation $ error "connPool forced in tempFoundation"
logFunc = messageLoggerSource tempFoundation appLogger logFunc = messageLoggerSource tempFoundation appLogger

2
examples/serversession-example-yesod-persistent/Handler/Home.hs
View File

@ -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 -- | On this serversession example, we simply provide some ways
-- users may interact with the session. -- users may interact with the session.
module Handler.Home where module Handler.Home where