diff -rupN vacuum-ubigraph-0.1.0.3/System/Vacuum/Ubigraph.hs vacuum-ubigraph-0.1.0.4/System/Vacuum/Ubigraph.hs
--- vacuum-ubigraph-0.1.0.3/System/Vacuum/Ubigraph.hs	2010-05-13 11:04:39.000000000 +0300
+++ vacuum-ubigraph-0.1.0.4/System/Vacuum/Ubigraph.hs	2010-05-13 10:51:47.000000000 +0300
@@ -58,6 +58,7 @@ view a = do
            e <- U.newEdge srv a b
            U.setEdgeAttribute srv e "stroke" "dotted"
            U.setEdgeAttribute srv e "arrow" "true"
+           U.setEdgeAttribute srv e "oriented" "true"
 
       srv = U.defaultServer