@@ -130,7 +130,7 @@ bodyField key = field key $ return . itemBody
130130
131131--------------------------------------------------------------------------------
132132-- | Map any field to its metadata value, if present
133−metadataField :: Context String
133+metadataField :: Context a
134134metadataField = Context $ \k i -> do
135135 value <- getMetadataField (itemIdentifier i) k
136136 maybe empty (return . StringField) value