diff --git a/comfort-graph.cabal b/comfort-graph.cabal
--- a/comfort-graph.cabal
+++ b/comfort-graph.cabal
@@ -1,5 +1,5 @@
 Name:                comfort-graph
-Version:             0.0.0.3
+Version:             0.0.1
 Synopsis:            Graph structure with type parameters for nodes and edges
 Description:
   This graph structure is based on "Data.Map"
@@ -51,7 +51,7 @@
 Cabal-Version:       >=1.10
 
 Source-Repository this
-  Tag:         0.0.0.3
+  Tag:         0.0.1
   Type:        darcs
   Location:    http://hub.darcs.net/thielema/comfort-graph
 
diff --git a/src/Data/Graph/Comfort.hs b/src/Data/Graph/Comfort.hs
--- a/src/Data/Graph/Comfort.hs
+++ b/src/Data/Graph/Comfort.hs
@@ -3,7 +3,7 @@
    Graph,
    LabeledNode,
    LabeledEdge,
-   Edge(from, to),
+   Edge(from, to), defaultEdgeFoldMap,
    DirEdge(DirEdge),
    UndirEdge(UndirEdge), undirEdge,
    EitherEdge(EDirEdge,EUndirEdge),
@@ -76,7 +76,7 @@
 import Data.Ord (Ord, compare, (<), (>))
 import Data.Tuple (uncurry)
 import Data.Function (flip, (.), ($))
-import Text.Show (Show, showParen, showString, shows, showsPrec)
+import Text.Show (Show, showParen, showString, showChar, shows, showsPrec)
 
 import Prelude (error)
 
@@ -97,7 +97,7 @@
       showParen (prec>10) $
          showString "Graph.fromList " .
          shows (Map.toList $ nodeLabels g) .
-         showString " " .
+         showChar ' ' .
          shows (Map.toList $ edgeLabelsWrap g)
 
 
@@ -117,6 +117,9 @@
 
 type LabeledNode n label = (n, label)
 
+
+defaultEdgeFoldMap :: (Edge edge, Monoid a) => edge a -> a
+defaultEdgeFoldMap e = mappend (from e) (to e)
 
 class (Foldable edge, Ord1 edge) => Edge edge where
    from, to :: edge node -> node