voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
voidlizard 2025-02-06 19:36:15 +03:00
parent 95b93698ac
commit 193ecc99ab
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

@ -48,7 +48,7 @@ import Data.String
import Data.Text.IO qualified as TIO
import Data.Text qualified as Text
import Data.Text (Text)
import Data.Text.Encoding (decodeUtf8With)
import Data.Text.Encoding (decodeUtf8With,encodeUtf8)
import Data.Text.Encoding.Error (ignore)
import Data.Time.Clock.POSIX
import Data.Time.Format (defaultTimeLocale, formatTime)
@ -1384,7 +1384,13 @@ internalEntries = do
entry $ bindMatch "json:file" $ \case
[StringLike fn] -> do
parseYaml <$> liftIO (LBS.readFile fn)
parseJson <$> liftIO (LBS.readFile fn)
_ -> throwIO (BadFormException @c nil)
entry $ bindMatch "json:string" $ \case
[TextLike s] -> do
pure $ parseJson $ encodeUtf8 s & LBS.fromStrict
_ -> throwIO (BadFormException @c nil)