Use yaml parser for config files.

cofree-coffee · Dec 20, 2022 · bb3bf17 · bb3bf17
1 parent 52770da
commit bb3bf17
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/app/Options/Config.hs b/app/Options/Config.hs
@@ -8,8 +8,9 @@ where
 
 import Control.Monad (void)
 import Data.Aeson qualified as Aeson
-import Data.Functor.Barbie
-import Options.Types
+import Data.Functor.Barbie (bpure)
+import Data.Yaml qualified as Yaml
+import Options.Types (ClientSessionF)
 import System.Directory (createDirectoryIfMissing, doesFileExist)
 import System.Environment.XDG.BaseDir (getUserConfigDir)
 import System.FilePath
@@ -23,7 +24,7 @@ readJSON = do
   void $ createDirectoryIfMissing True configDir
   let path = configDir </> "config"
   doesFileExist path >>= \case
-    True -> Aeson.decodeFileStrict path
+    True -> Yaml.decodeFileThrow path
     False -> pure Nothing
 
 fromConfig :: IO (ClientSessionF Maybe)

diff --git a/cofree-bot.cabal b/cofree-bot.cabal
@@ -73,6 +73,7 @@ executable cofree-bot
     , mtl
     , optparse-applicative
     , xdg-basedir
+    , yaml
 
   other-modules:
     , Options