git.gnu.io has moved to IP address 209.51.188.249 -- please double check where you are logging in.

Commit 190da03d authored by Bryan Richter's avatar Bryan Richter

Remove unused daemon runner

parent 69a233a2
......@@ -33,9 +33,6 @@ import qualified Yesod as Y
import Avatar
import Model.Currency
-- A type for running DB actions outside of a Handler.
type Daemon a = ReaderT App (LoggingT (ResourceT IO)) a
-- | The foundation datatype for your application. This can be a good place to
-- keep settings and values requiring initialization before your application
-- starts running, such as database connections. Every handler will have
......@@ -387,14 +384,6 @@ getAlert = do
-- Types that satisfy this constraint: Handler, Daemon.
type DBConstraint m = (MonadBaseControl IO m, MonadIO m, MonadLogger m, MonadResource m, MonadReader App m)
-- Run a Daemon in IO.
runDaemon :: App -> Daemon a -> IO a
runDaemon app daemon =
runResourceT $
runLoggingT
(runReaderT daemon app)
(messageLoggerSource app (appLogger app))
-- A basic database action.
type DB a = forall m. DBConstraint m => SqlPersistT m a
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment