anchor.diff:          
           (publishedPosts |> Seq.toArray).[startOf..endOf]
   
  +    let EntryToPagePreview entry = 
  +        let item : PagePreview = {
  +            ID = entry.ID
  +            PubDate = entry.PubDate
  +            Title = entry.Title
  +            Slug = entry.Slug
  +        }
  +        item
  +
   
   
   
  
positive.code:     ///  - `num` - whatever
      let hello num = 42
      [<DataContract>]
      type Entry = {
          [<field : DataMember(Name="ID")>]
          ID : string
          [<field : DataMember(Name="URL")>]
          URL : string
          [<field : DataMember(Name="Title")>]
          Title : string
          [<field : DataMember(Name="PubDate")>]
  
negative.code:                 PrevPage = Blog.HasPrevPage 5 pageNo
              }
              page |> OKJsonBytes
          )
          pathScan "/blog/posts/entry/%d" (fun (entryId) ->
              // TODO: what if there is no entry found? first check if it exists! 
              let foundIndex = Blog.items |> Seq.findIndex (fun item -> entryId |> item.ID.Equals)
              let foundItem = Blog.items.[foundIndex]
              let nextItem = Blog.items.[foundIndex + 1]
              let prevItem = Blog.items.[foundIndex - 1]
              // TODO: there may not be a next or previous
              let nextPage = Blog.EntryToPagePreview nextItem
              let prevPage = Blog.EntryToPagePreview prevItem
              let item = {
                  foundItem with
                      NextPage = Some(nextPage)
                      PrevPage = Some(prevPage)
              }
              OKJsonBytes(item)
          )
          path "/blog/posts/pages/count" >>= (OK <| (Blog.CountPages 5).ToString())
          path "/blog/tags/all" >>= (Blog.tags |> Seq.toArray |> OKJsonBytes)
      ]
  
  
  