-------------------------------------------------------------------------------
--- $Id: InvBank.hs#5 2010/09/24 18:06:13 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Main
where
import System.Environment
import Lava.ISE

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

main :: IO ()
main 
  = do args <- getArgs
       -- putStrLn (show args)
       let design:part:package:speed:effort:freq:rest = args
       -- putStrLn ("Speed: " ++ show ((read speed)::Int))
       -- putStrLn ("Effort: " ++ show ((read effort)::Effort))
       --putStrLn ("Frequency: " ++ show ((read freq)::Int))
       if length args == 6 then
         implement design part package (read speed) (read effort) (read freq)
         else
           error "implement <design name> <part> <package> <speed> <effort> <frequency>"

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