mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-25 02:11:55 +01:00
Updated snapshot
This commit is contained in:
parent
5bd96ad60e
commit
b21694cbd6
@ -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 =
|
||||||
|
|||||||
@ -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)
|
||||||
|
|||||||
@ -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 =
|
||||||
|
|||||||
@ -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)
|
||||||
|
|||||||
2
Model.hs
2
Model.hs
@ -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")
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user