Matt McCutchen's Web Site
/
match
/
match.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
5a07db4
)
Remove an unneeded forall.
author
Matt McCutchen
<matt@mattmccutchen.net>
Fri, 11 Jul 2008 03:47:56 +0000
(23:47 -0400)
committer
Matt McCutchen
<matt@mattmccutchen.net>
Fri, 11 Jul 2008 03:47:56 +0000
(23:47 -0400)
program/BellmanFord.hs
patch
|
blob
|
blame
|
history
diff --git
a/program/BellmanFord.hs
b/program/BellmanFord.hs
index
da0fdf8
..
34e2a63
100644
(file)
--- 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