[Fencommits] fenfire-hs: Fix revert

[Tuukka Hastrup]

Tue Apr 22 03:25:54 EEST 2008  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * Fix revert

    M ./Fenfire/Main.hs -2 +2

Tue Apr 22 03:25:54 EEST 2008  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * Fix revert
diff -rN -u old-fenfire-hs/Fenfire/Main.hs new-fenfire-hs/Fenfire/Main.hs
--- old-fenfire-hs/Fenfire/Main.hs	2008-04-22 03:26:47.396400000 +0300
+++ new-fenfire-hs/Fenfire/Main.hs	2008-04-22 03:26:47.396400000 +0300
@@ -250,8 +250,8 @@
         "revert" | filepath /= "" -> confirmRevert modified $ do
             g <- liftIO $ loadGraph filepath
             let graph' = delete' (Any,Any,Any,Dft) graph
-                g' = mergeGraphs (mergeGraphs graph' g) $ 
-                     containsInfoTriples g'
+                g' = mergeGraphs (mergeGraphs g graph') $ 
+                     containsInfoTriples g
             put $ newState g' (findStartPath Nothing g') filepath focus
         "save" | filepath /= "" -> do 
                      liftIO $ saveGraph graph filepath