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.IO qualified as TIO
import Data.Text qualified as Text import Data.Text qualified as Text
import Data.Text (Text) import Data.Text (Text)
import Data.Text.Encoding (decodeUtf8With) import Data.Text.Encoding (decodeUtf8With,encodeUtf8)
import Data.Text.Encoding.Error (ignore) import Data.Text.Encoding.Error (ignore)
import Data.Time.Clock.POSIX import Data.Time.Clock.POSIX
import Data.Time.Format (defaultTimeLocale, formatTime) import Data.Time.Format (defaultTimeLocale, formatTime)
@ -1384,7 +1384,13 @@ internalEntries = do
entry $ bindMatch "json:file" $ \case entry $ bindMatch "json:file" $ \case
[StringLike fn] -> do [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) _ -> throwIO (BadFormException @c nil)