[Fencommits] fenfire-hs: fix: 'connect' must clean the mark

[Benja Fallenstein]

Fri Mar  2 14:53:13 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * fix: 'connect' must clean the mark
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-02 14:53:25.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-02 14:53:25.000000000 +0200
@@ -166,6 +166,7 @@
     let ?graph = foldr (\n -> insert $ triple dir (fsNode state, prop, n))
                        (fsGraph state) nodes in
     modifyGraph ?graph (Path (fsNode state) [Conn prop dir (head nodes)]) state
+        { fsMark = Set.empty }
 
 disconnect :: (?vs :: ViewSettings) => Dir -> Endo FenState
 disconnect dir state = let ?graph = fsGraph state in