Fix an unused variable warning in Reflex.Spider.Internal

nsluss · Jul 15, 2015 · 5cb4b9c · 5cb4b9c
1 parent 4c4ca91
commit 5cb4b9c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Reflex/Spider/Internal.hs b/src/Reflex/Spider/Internal.hs
@@ -532,7 +532,7 @@ run roots after = do
         then do scheduleRootClear occRef
                 return $ Just r
         else return Nothing
-    forM_ (catMaybes rootsToPropagate) $ \(RootTrigger (subscribersRef, _, k) :=> a) -> do
+    forM_ (catMaybes rootsToPropagate) $ \(RootTrigger (subscribersRef, _, _) :=> a) -> do
       propagateAndUpdateSubscribersRef subscribersRef a
     delayedRef <- EventM $ asks eventEnvDelayedMerges
     let go = do