mirror of
https://github.com/input-output-hk/foliage.git
synced 2024-11-30 01:16:54 +03:00
16 lines
390 B
Haskell
16 lines
390 B
Haskell
module Main where
|
|
|
|
import Foliage.CmdBuild
|
|
import Foliage.CmdCreateKeys
|
|
import Foliage.CmdImportIndex
|
|
import Foliage.Options
|
|
import Main.Utf8 (withUtf8)
|
|
|
|
main :: IO ()
|
|
main = withUtf8 $ do
|
|
putStrLn "🌿 Foliage"
|
|
parseCommand >>= \case
|
|
CreateKeys path -> cmdCreateKeys path
|
|
Build buildOpts -> cmdBuild buildOpts
|
|
ImportIndex importIndexOpts -> cmdImportIndex importIndexOpts
|