-------------------------------------------------------------------------------
--- $Id: CircuitGraphToVHDL.hs#14 2010/10/01 19:17:36 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Lava.NetlistToEDIF
where
import Lava.ComputeNetDrivers
import Lava.Netlist

-------------------------------------------------------------------------------

putXilinxEDIF :: Netlist -> IO ()
putXilinxEDIF netlist
  = putStrLn (show (netDrivers netlistWithDrivers))
    where
    netlistWithDrivers = computeNetDrivers  netlist

-------------------------------------------------------------------------------