Updated snapshot

This commit is contained in:
Michael Snoyman 2014-11-18 18:09:25 +02:00
parent 5bd96ad60e
commit b21694cbd6
6 changed files with 4 additions and 14 deletions

View File

@ -310,14 +310,6 @@ cleanupTemp now fp
, "newindex" , "newindex"
] ]
instance MonadActive m => MonadActive (SqlPersistT m) where -- FIXME orphan upstream
monadActive = lift monadActive
instance MonadReader env m => MonadReader env (SqlPersistT m) where
ask = lift ask
local f m =
do stT <- liftWith (\run -> local f (run m))
restoreT (return stT)
-- for yesod devel -- for yesod devel
getApplicationDev :: Bool -> IO (Int, Application) getApplicationDev :: Bool -> IO (Int, Application)
getApplicationDev useEcho = getApplicationDev useEcho =

View File

@ -35,7 +35,6 @@ import Crypto.Hash (Digest, SHA256)
import Data.Byteable (toBytes) import Data.Byteable (toBytes)
import Distribution.Text (display) import Distribution.Text (display)
import Text.Markdown (Markdown (Markdown)) import Text.Markdown (Markdown (Markdown))
import Data.Foldable (foldMap)
import qualified Data.Traversable as T import qualified Data.Traversable as T
import qualified Data.Version import qualified Data.Version
import Text.ParserCombinators.ReadP (readP_to_S) import Text.ParserCombinators.ReadP (readP_to_S)

View File

@ -152,7 +152,7 @@ instance Yesod App where
-- How to run database actions. -- How to run database actions.
instance YesodPersist App where instance YesodPersist App where
type YesodPersistBackend App = SqlPersistT type YesodPersistBackend App = SqlBackend
runDB = defaultRunDB persistConfig connPool runDB = defaultRunDB persistConfig connPool
instance YesodPersistRunner App where instance YesodPersistRunner App where
getDBRunner = defaultGetDBRunner connPool getDBRunner = defaultGetDBRunner connPool
@ -221,6 +221,7 @@ instance YesodAuth App where
authPlugins _ = [authBrowserId def, authGoogleEmail] authPlugins _ = [authBrowserId def, authGoogleEmail]
authHttpManager = httpManager authHttpManager = httpManager
instance YesodAuthPersist App
getToken :: YesodDB App Slug getToken :: YesodDB App Slug
getToken = getToken =

View File

@ -4,9 +4,7 @@ import Import
import Data.BlobStore import Data.BlobStore
import Filesystem (removeTree, isDirectory, createTree, isFile, rename, removeFile, removeDirectory) import Filesystem (removeTree, isDirectory, createTree, isFile, rename, removeFile, removeDirectory)
import Control.Concurrent (forkIO) import Control.Concurrent (forkIO)
import Control.Concurrent.Chan
import System.IO.Temp (withSystemTempFile, withTempFile) import System.IO.Temp (withSystemTempFile, withTempFile)
import Control.Exception (mask, mask_)
import System.Process (createProcess, proc, cwd, waitForProcess) import System.Process (createProcess, proc, cwd, waitForProcess)
import System.Exit (ExitCode (ExitSuccess)) import System.Exit (ExitCode (ExitSuccess))
import Network.Mime (defaultMimeLookup) import Network.Mime (defaultMimeLookup)

View File

@ -9,5 +9,5 @@ import Types
-- You can find more information on persistent and how to declare entities -- You can find more information on persistent and how to declare entities
-- at: -- at:
-- http://www.yesodweb.com/book/persistent/ -- http://www.yesodweb.com/book/persistent/
share [mkPersist sqlOnlySettings, mkMigrate "migrateAll"] share [mkPersist sqlSettings, mkMigrate "migrateAll"]
$(persistFileWith lowerCaseSettings "config/models") $(persistFileWith lowerCaseSettings "config/models")

View File

@ -5,7 +5,7 @@ Server for stable, curated Haskell package sets
Code builds with the Stackage snapshot: Code builds with the Stackage snapshot:
remote-repo: stackage:http://www.stackage.org/stackage/aecbf72b568a63e86a971311fee5475f076043cc remote-repo: stackage-e36ddac9333f2197ada6883b52f4834ddc0d5e37:http://www.stackage.org/stackage/e36ddac9333f2197ada6883b52f4834ddc0d5e37
Inside the config directory, there are two files ending in `-sample`. They Inside the config directory, there are two files ending in `-sample`. They
should be copied to remove the `-sample` suffix for the site to work. We do it should be copied to remove the `-sample` suffix for the site to work. We do it