2022-03-09 16:29:23 +03:00
|
|
|
module Main where
|
|
|
|
|
2022-03-28 07:53:39 +03:00
|
|
|
import Foliage.CmdBuild
|
|
|
|
import Foliage.CmdCreateKeys
|
2022-05-19 10:01:57 +03:00
|
|
|
import Foliage.CmdImportIndex
|
2022-03-28 07:53:39 +03:00
|
|
|
import Foliage.Options
|
2022-08-23 15:11:15 +03:00
|
|
|
import Main.Utf8 (withUtf8)
|
2022-03-09 16:29:23 +03:00
|
|
|
|
|
|
|
main :: IO ()
|
2022-08-23 15:11:15 +03:00
|
|
|
main = withUtf8 $ do
|
2022-03-28 07:53:39 +03:00
|
|
|
putStrLn "🌿 Foliage"
|
|
|
|
parseCommand >>= \case
|
|
|
|
CreateKeys path -> cmdCreateKeys path
|
|
|
|
Build buildOpts -> cmdBuild buildOpts
|
2022-05-19 10:01:57 +03:00
|
|
|
ImportIndex importIndexOpts -> cmdImportIndex importIndexOpts
|