{-# OPTIONS -Wall #-}

module Hyperlink where

import Wumpus.Core

import System.Directory



main :: IO ()
main = do 
    createDirectoryIfMissing True "./out/"
    writeEPS "./out/svg_link01.eps"  link_pic
    writeSVG "./out/svg_link01.svg"  link_pic


link_pic :: DPicture
link_pic = frame [ xlink xref $ ztextlabel "www.haskell.org" zeroPt ]
  where    
     xref = xlinkhref "http://www.haskell.org"