Use with-utf8

This commit is contained in:
Andrea Bedini 2022-08-23 14:11:15 +02:00
parent df2fb98a1e
commit bbeaaf16fe
2 changed files with 3 additions and 1 deletions

View File

@ -4,9 +4,10 @@ import Foliage.CmdBuild
import Foliage.CmdCreateKeys
import Foliage.CmdImportIndex
import Foliage.Options
import Main.Utf8 (withUtf8)
main :: IO ()
main = do
main = withUtf8 $ do
putStrLn "🌿 Foliage"
parseCommand >>= \case
CreateKeys path -> cmdCreateKeys path

View File

@ -51,4 +51,5 @@ executable foliage
time >=1.9.3 && <1.13,
time-compat >=1.9.6.1 && <1.10,
tomland >=1.3.3.1 && <1.4,
with-utf8 >=1.0.2.3 && <1.1,
zlib >=0.6.2.3 && <0.7