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:
Dmitry Zuikov 2024-07-25 12:08:13 +03:00
parent fb2de50461
commit 5b6c3336dd
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hbs2-cli/hbs2-cli.cabal
View File

@ -111,6 +111,7 @@ library
HBS2.CLI.Run.Help HBS2.CLI.Run.Help
build-depends: base build-depends: base
, magic
hs-source-dirs: lib hs-source-dirs: lib

13
hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
View File

@ -25,6 +25,10 @@ import Data.Maybe
import Data.Text.Encoding qualified as TE import Data.Text.Encoding qualified as TE
import Data.Text qualified as Text import Data.Text qualified as Text
import Magic.Data
import Magic.Init (magicLoadDefault,magicOpen)
import Magic.Operations (magicFile)
{- HLINT ignore "Functor law" -} {- HLINT ignore "Functor law" -}
metaFromSyntax :: [Syntax c] -> HashMap Text Text metaFromSyntax :: [Syntax c] -> HashMap Text Text
@ -120,6 +124,15 @@ metaDataEntries = do
StringLike rest -> notice $ "FILE" <+> pretty rest StringLike rest -> notice $ "FILE" <+> pretty rest
_ -> pure () _ -> pure ()
-- meta <- liftIO do
-- magic <- magicOpen [MagicMimeType,MagicMime,MagicMimeEncoding]
-- magicLoadDefault magic
-- mime <- magicFile magic fn
-- pure [ "file-name:" <+> dquotes (pretty $ takeFileName fn)
-- , "mime-type:" <+> dquotes (pretty mime)
-- ]
error $ show $ pretty args error $ show $ pretty args
entry $ bindMatch "cbor:base58" $ \case entry $ bindMatch "cbor:base58" $ \case