diff --git a/hbs2-cli/hbs2-cli.cabal b/hbs2-cli/hbs2-cli.cabal index d27e6769..bd9f3a57 100644 --- a/hbs2-cli/hbs2-cli.cabal +++ b/hbs2-cli/hbs2-cli.cabal @@ -111,6 +111,7 @@ library HBS2.CLI.Run.Help build-depends: base + , magic hs-source-dirs: lib diff --git a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs index 72977d67..4575415e 100644 --- a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs +++ b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs @@ -25,6 +25,10 @@ import Data.Maybe import Data.Text.Encoding qualified as TE import Data.Text qualified as Text +import Magic.Data +import Magic.Init (magicLoadDefault,magicOpen) +import Magic.Operations (magicFile) + {- HLINT ignore "Functor law" -} metaFromSyntax :: [Syntax c] -> HashMap Text Text @@ -120,6 +124,15 @@ metaDataEntries = do StringLike rest -> notice $ "FILE" <+> pretty rest _ -> 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 entry $ bindMatch "cbor:base58" $ \case