637ab61 · hakyll · git.iko.soy

on master help sign in

Added copyValueWith.

637ab61Jasper Van der Jeugt17 years ago

src/Text/Hakyll/Page.hs+12

@@ -1,6 +1,7 @@

1module Text.Hakyll.Page

2 ( Page,

3 fromContext,

4+ copyValueWith,

4 getBody,

5 getBody,

5 readPage,

6 readPage,

6 writePage

7 writePage

@@ -28,6 +29,17 @@ data Page = Page (M.Map B.ByteString B.ByteString)

28fromContext :: (M.Map B.ByteString B.ByteString) -> Page

29fromContext :: (M.Map B.ByteString B.ByteString) -> Page

29fromContext = Page

30fromContext = Page

32+-- | Do something with a value of the page.

33+copyValueWith :: String -- ^ Key of which the value should be copied.

34+ -> String -- ^ Key the value should be copied to.

35+ -> (B.ByteString -> B.ByteString) -- ^ Function to apply on the value.

36+ -> Page -- ^ Page on which to apply this modification.

37+ -> Page -- ^ Result.

38+copyValueWith src dst f p@(Page page) = case M.lookup (B.pack src) page of

39+ Nothing -> p

40+ (Just value) -> Page $ M.insert (B.pack dst) (f value) page

41+

42+

31-- | Auxiliary function to pack a pair.

43-- | Auxiliary function to pack a pair.

32packPair :: (String, String) -> (B.ByteString, B.ByteString)

44packPair :: (String, String) -> (B.ByteString, B.ByteString)

33packPair (a, b) = (B.pack a, B.pack b)

45packPair (a, b) = (B.pack a, B.pack b)