Skip to content
Browse files

use handler calls

  • Loading branch information...
1 parent 2ab9c5f commit 7928850375be8a0911f5b1bf0d02daa7e4547e2b @nudded nudded committed Mar 29, 2012
Showing with 6 additions and 2 deletions.
  1. +6 −2 count-von-count/src/CountVonCount/Web.hs
View
8 count-von-count/src/CountVonCount/Web.hs
@@ -31,6 +31,7 @@ import CountVonCount.Management
import CountVonCount.Persistence
import CountVonCount.Web.Util
import CountVonCount.Boxxy
+import CountVonCount.Types
import qualified CountVonCount.Log as Log
import qualified CountVonCount.Web.Views as Views
@@ -121,8 +122,11 @@ bonus = do
runPersistence $ addLaps teamRef timestamp reason laps'
boxxies <- configBoxxies . webConfig <$> ask
- liftIO $ forM_ boxxies $ \c -> do
- putLaps c team timestamp laps' Nothing (Just reason)
+ log <- webLog <$> ask
+ liftIO $ forM_ boxxies $ \boxxy -> do
+ let h = handler "Boxxy Bonus" $ \c ->
+ putLaps c team timestamp laps' Nothing (Just reason)
+ callHandler log h boxxy
Snap.redirect "/management"
_ -> do

0 comments on commit 7928850

Please sign in to comment.
Something went wrong with that request. Please try again.