diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index 0aac4ec..6c4834f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -79,7 +79,7 @@ getStyleR = do getBangsR :: Handler TypedContent getBangsR = do - st <- bangState <$> getYesod + st <- getsYesod bangState -- changes here should propagate quicker, so we're using 1h. -- besides, we're using an eTag as well. @@ -110,20 +110,20 @@ getOpenSearchR :: Handler TypedContent getOpenSearchR = do neverExpires - cfg <- config <$> getYesod + cfg <- getsYesod config resXml <- makeOpenSearch cfg <$> lookupGetParam "default" respond "application/opensearchdescription+xml" resXml postVerdictR :: Bool -> Handler () postVerdictR b = do - cfg <- config <$> getYesod + cfg <- getsYesod config ensureAuth cfg (PendingBang n u dp mayEm) <- requireCheckJsonBody -- NOTE: known race condition: the bang bang may be deleted from the database -- before the updated bangs are written to disk, leading to the loss of -- a pending bang on very specific crash timing. - st <- bangState <$> getYesod + st <- getsYesod bangState when b $ liftIO $ addBang n u dp st runDB $ deleteWhere [PendingBangBang ==. n] |