myTrans :: (Show knoten, Ord knoten) => (Labeling knoten) -> (GVTrans knoten) myTrans labeling = GVTrans { getGVProg :: Default , getGVFormat :: "gif" , isGVDirected :: False , getGVNID = show , getGVNName = show , getGVNLabel = Just (getNLabel labeling) , getGVNColor = Nothing , getGVNXAtts = Nothing , getGVELabel = Just (getELabel labeling) , getGVEXAtts = Nothing }
getNLabel
und getELabel
müssen natürlich noch
implementiert werden.