diff --git a/Data/Graph/Analysis/Reporting.hs b/Data/Graph/Analysis/Reporting.hs
--- a/Data/Graph/Analysis/Reporting.hs
+++ b/Data/Graph/Analysis/Reporting.hs
@@ -35,7 +35,8 @@
 import Data.Time(getZonedTime, zonedTimeToLocalTime, formatTime)
 import Control.Exception.Extensible(SomeException(..), tryJust)
 import System.Directory(createDirectoryIfMissing)
-import System.FilePath((</>), makeRelative)
+import System.FilePath(makeRelative)
+import System.FilePath.Posix((</>))
 import System.Locale(defaultTimeLocale)
 import Control.Monad(liftM, when)
 
@@ -64,7 +65,7 @@
                     , author         :: String
                     , date           :: String
                       -- | Main-matter
-                    , legend         :: [(DocGraph, DocInline)]
+                    , legend         :: [(Either DocGraph DocInline, DocInline)]
                     , content        :: [DocElement]
                     }
                 deriving (Eq, Ord, Show, Read)
@@ -158,20 +159,21 @@
                                       }
 
 legendToElement           :: FilePath -> FilePath -> VisProperties
-                             -> [(DocGraph, DocInline)]
+                             -> [(Either DocGraph DocInline, DocInline)]
                              -> IO (Maybe DocElement)
 legendToElement _  _   _  [] = return Nothing
 legendToElement fp gfp vp ls = do defs <- mapM (uncurry (legToDef fp gfp vp)) ls
                                   let df   = Definitions defs
                                   return $ Just $ Section (Text "Legend") [df]
 
-legToDef                  :: FilePath -> FilePath -> VisProperties
-                             -> DocGraph -> DocInline
-                             -> IO (DocInline, DocInline)
-legToDef fp gfp vp dg def = liftM (flip (,) def)
-                            $ graphImage' fp gfp vp' dg
+legToDef :: FilePath -> FilePath -> VisProperties
+            -> Either DocGraph DocInline -> DocInline
+            -> IO (DocInline, DocInline)
+legToDef fp gfp vp (Left dg) def = liftM ((,) def)
+                                   $ graphImage' fp gfp vp' dg
   where
     vp' = vp { size = DefaultSize }
+legToDef _ _ _ (Right di) def = return (def,di)
 
 -- | Return today's date as a string, e.g. \"Monday 1 January, 2000\".
 --   This arbitrary format is chosen as there doesn't seem to be a way
@@ -267,7 +269,7 @@
 -- | Using a 6:4 ratio, create the given 'Point' representing
 --   width,height from the width.
 createSize   :: Double -> GraphSize
-createSize w = GivenSize $ Point w (w*4/6)
+createSize w = GivenSize $ createPoint w (w*4/6)
 
 -- | Replace all @.@ with @-@ in the given 'FilePath', since some output
 --   formats (e.g. LaTeX) don't like extraneous @.@'s in the filename.
diff --git a/Data/Graph/Analysis/Utils.hs b/Data/Graph/Analysis/Utils.hs
--- a/Data/Graph/Analysis/Utils.hs
+++ b/Data/Graph/Analysis/Utils.hs
@@ -194,16 +194,15 @@
       rmAttrs = snd
       isPoint Pos{} = True
       isPoint _     = False
-      getPos (n,(as,l)) = PLabel { xPos   = round x
-                                 , yPos   = round y
+      getPos (n,(as,l)) = PLabel { xPos   = round $ xCoord pnt
+                                 , yPos   = round $ yCoord pnt
                                  , pnode  = n
                                  , plabel = l
                                  }
           where
-            -- Assume that positions can't be doubles.
             -- Also assuming that we're not dealing with a
             -- spline-type point.
-            (Pos (PointPos (Point x y))) = fromJust $ find isPoint as
+            (Pos (PointPos pnt)) = fromJust $ find isPoint as
 
 -- | Returns the positions of the nodes in the graph, as found using
 --   Graphviz.  The 'Bool' parameter denotes if the graph is directed
diff --git a/Graphalyze.cabal b/Graphalyze.cabal
--- a/Graphalyze.cabal
+++ b/Graphalyze.cabal
@@ -1,5 +1,5 @@
 Name:                Graphalyze
-Version:             0.10.0.1
+Version:             0.11.0.0
 Synopsis:            Graph-Theoretic Analysis library.
 Description:         A library to use graph theory to analyse the relationships
                         inherent in discrete data.
@@ -31,7 +31,7 @@
                          time,
                          bktrees >= 0.2 && <0.4,
                          fgl >= 5.4.2.3 && < 5.5,
-                         graphviz >= 2999.10.0.0 && < 2999.11.0.0,
+                         graphviz >= 2999.11.0.0 && < 2999.12.0.0,
                          pandoc >= 1.5 && < 1.7
 
         Exposed-Modules:     Data.Graph.Analysis