2

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

突然我得到

 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

4

1 回答 1

4

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

type Metadata = HashMap.Map String String

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

在 hakyll 4.8 中，元数据解析已更改（问题、提交、发布公告）以使用 YAML 解析器，以允许更复杂的元数据结构。现在，类型同义词如下：

type Metadata = Aeson.Object

这是Objectfromaeson包 -Data.Yaml库共享类型。

不幸的是，处理Aeson.Object它并不像Map以前那么简单。要了解如何正确使用 Aeson，您可以阅读冗长的教程。

幸运的是，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."
于 2016-06-15T08:02:56.073 回答