X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Types%2FData%2FGraph%2FDijkstra.hs;h=e25aaa00d6f648fc7ad0faa5d18c2c35f395221e;hb=4ab5e37719b3dc47ede5055a18be4eb544c21b40;hp=9a70ee92a7b021b3d8918b64c5fd47690a9e3352;hpb=a370bc29f91d16ad36da733fb82061b9a543700e;p=hs-rrdtool.git

diff --git a/Types/Data/Graph/Dijkstra.hs b/Types/Data/Graph/Dijkstra.hs
index 9a70ee9..e25aaa0 100644
--- a/Types/Data/Graph/Dijkstra.hs
+++ b/Types/Data/Graph/Dijkstra.hs
@@ -58,3 +58,8 @@ type SpLength node1 node2 graph
 -- Sp
 type Sp node1 node2 graph
     = GetLPathNodes node2 (SpTree node1 graph)
+
+
+
+test :: Match D1 (InsNode (LNode D0 True) Empty)
+test = undefined