-------------------------------------------------------------------------------
--- $Id: PortRange.hs#1 2010/09/21 13:51:11 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Lava.PortRange
where
import Lava.Netlist

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

portRange :: Int -> Dir -> Int -> [Int]
portRange a To b = [a..b]
portTange a Downto b = [b..a]

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