[Fencommits] fenfire-hs: 'connect' modifies the graph

[Benja Fallenstein]

Wed Feb 21 14:00:15 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * 'connect' modifies the graph
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-02-21 14:02:01.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-02-21 14:02:01.000000000 +0200
@@ -318,7 +318,7 @@
     let ?graph = foldr (\n -> insert $ triple dir (node, prop, n))
                        (fsGraph state) nodes in
     state { fsRotation = fromJust $ fromPath (Path node [Conn prop dir (head nodes)]),
-            fsGraph = ?graph, fsMark = Set.empty }
+            fsGraph = ?graph, fsMark = Set.empty, fsGraphModified = True }
 
 disconnect :: (?vs :: ViewSettings) => Dir -> Endo FenState
 disconnect dir state@(FenState { fsRotation=rot@(Rotation node _) }) =