mirror of
https://github.com/snoyberg/keter.git
synced 2024-12-15 09:33:06 +03:00
12 lines
266 B
Haskell
12 lines
266 B
Haskell
import System.Environment (getArgs, getProgName)
|
|
import Keter.Main (keter)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
[dir] -> keter dir
|
|
_ -> do
|
|
pn <- getProgName
|
|
error $ "Usage: " ++ pn ++ " <root folder>"
|