bindings-saga-cmd-0.1.0.0: src/sagaLut.hs

module Main where
import System.Environment (getArgs, getProgName)
import Control.Monad (when)
import Gis.Saga.LUT

main :: IO ()
main = do
    args <- getArgs
    prg <- getProgName
    when (length args /= 2) (fail (usage prg))
    let k:j:[] = args
    putStr $ bgrColTable (read k) (read j)


usage :: String -> String
usage p = "Usage: " ++ p ++ " min max"