diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 13:02:28 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 13:02:28 +0100 |
| commit | ee320c61668b532cafce7f4fd0a80ba43b3b512a (patch) | |
| tree | cff36ca13a54208f5f4d1fd96b3edea5133b66de /src/Hakyll/Web/Page | |
| parent | f56eb538b6e366202f796c84eee46e620f519ff6 (diff) | |
| download | hakyll-ee320c61668b532cafce7f4fd0a80ba43b3b512a.tar.gz | |
Finish tags module
Diffstat (limited to 'src/Hakyll/Web/Page')
| -rw-r--r-- | src/Hakyll/Web/Page/Metadata.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Web/Page/Metadata.hs b/src/Hakyll/Web/Page/Metadata.hs index d601a97..2880ece 100644 --- a/src/Hakyll/Web/Page/Metadata.hs +++ b/src/Hakyll/Web/Page/Metadata.hs @@ -45,9 +45,9 @@ setField k v (Page m b) = Page (M.insertWith (flip const) k v m) b -- very usable together with the different 'require' functions. -- setFieldA :: Arrow a - => String -- ^ Key - -> a x String -- ^ Value arrow - -> a (Page String, x) (Page String) -- ^ Resulting arrow + => String -- ^ Key + -> a x String -- ^ Value arrow + -> a (Page b, x) (Page b) -- ^ Resulting arrow setFieldA k v = id *** v >>> arr (uncurry $ flip $ setField k) -- | Do something with a metadata value, but keep the old value as well. If the |