Question

直到大约一个月前，一切都很好......

突然间我

 berkson.github.io/source/blog.hs: 333, 42
 • Couldn't match type ‘unordered-containers-0.2.7.1:Data.HashMap.Base.HashMap
                          text-1.2.2.1:Data.Text.Internal.Text
                          aeson-0.11.2.0:Data.Aeson.Types.Internal.Value’
                  with ‘M.Map [Char] [Char]’
   Expected type: M.Map [Char] [Char]
     Actual type: Metadata
 • In the first argument of ‘(M.!)’, namely ‘md’
   In the first argument of ‘(++)’, namely ‘(md M.! "author")’
   In the second argument of ‘(++)’, namely ‘(md M.! "author") ++ "/"’

来自代码：

 directorizeDateAndAuthor :: Routes
 directorizeDateAndAuthor = metadataRoute $ \md ->
     gsubRoute "/[0-9]{4}-[0-9]{2}-[0-9]{2}-" $ \s ->
         replaceAll "-" (const "/") s ++ (md M.! "author") ++ "/"

我想知道你是否介意帮助我破译它究竟告诉我的是什么？我觉得我的结果存在某种类型的语法错误，但我不明白改变了什么以及它为什么不像以前那样进行编译？

参考：https://github.com/berkson/berkson.github.io/blob/source/source/blog.hs#L330

Answer 1

在hakyll 4.8之前，Metadata类型的同义词定义如下：

type Metadata = HashMap.Map String String

元数据只是键 - 值对的平面列表。

在hakyll 4.8中，元数据解析已更改（issue，commit，release anouncement）以使用YAML解析器，以允许更复杂的元数据结构。现在，类型同义词如下：

type Metadata = Aeson.Object

这是来自Object包的aeson - Data.Yaml库共享类型。

不幸的是，处理Aeson.Object并不像Map那样简单。要了解如何正确使用Aeson，您可以阅读lengthy tutorial。

幸运的是，Jasper为我们提供了一个函数lookupString，它几乎是HashMap.!的替代品：

(!) :: Metadata -> String -> String
lookupString :: String -> Metadata -> Maybe String

展开Maybe值，您将获得类似以下代码的内容：

directorizeDateAndAuthor :: Routes
directorizeDateAndAuthor = metadataRoute $ \md ->
  case lookupString "author" md of
      Just author ->
          gsubRoute "/[0-9]{4}-[0-9]{2}-[0-9]{2}-" $ \s ->
              replaceAll "-" (const "/") s ++ author ++ "/"
      Nothing -> error "The author metadata field is missing."

M.Map突然预期的类型错误

1 个答案: