foliage/app/Main.hs

18 lines
419 B
Haskell
Raw Normal View History

{-# LANGUAGE LambdaCase #-}
2022-03-09 16:29:23 +03:00
module Main where
import Foliage.CmdBuild
import Foliage.CmdCreateKeys
2022-05-19 10:01:57 +03:00
import Foliage.CmdImportIndex
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
putStrLn "🌿 Foliage"
parseCommand >>= \case
CreateKeys path -> cmdCreateKeys path
Build buildOpts -> cmdBuild buildOpts
2022-05-19 10:01:57 +03:00
ImportIndex importIndexOpts -> cmdImportIndex importIndexOpts