From 5dcb8125788c498643b2da688fd522816d13dc85 Mon Sep 17 00:00:00 2001
From: Matt McCutchen <matt@mattmccutchen.net>
Date: Thu, 10 Jul 2008 23:47:56 -0400
Subject: [PATCH] Remove an unneeded forall.

---
 program/BellmanFord.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/program/BellmanFord.hs b/program/BellmanFord.hs
index da0fdf8..34e2a63 100644
--- a/program/BellmanFord.hs
+++ b/program/BellmanFord.hs
@@ -81,7 +81,7 @@ endPass state = do
 					aqEnqueue (bfsChanged state) (bfsPassEnder state)
 					search state -- Continue with the next pass.
 
-search :: forall s gr a b w. (Graph gr, Real w) => BFState s gr a b w -> ST s ()
+search :: (Graph gr, Real w) => BFState s gr a b w -> ST s ()
 search state = do
 	Just node <- aqDequeue (bfsChanged state)
 	if node == bfsPassEnder state
-- 
2.34.1