-------------------------------------------------------------------------------
--- $Id: PortRange.hs#2 2010/09/29 15:05:17 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Lava.PortRange
where
import Lava.Netlist

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

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

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