anchor.diff:      ///  - `num` - whatever
       let hello num = 42
       [<DataContract>]
  +    type PagePreview = {
  +        ID : int
  +        PubDate : DateTime
  +        Title : string
  +        Slug : string
  +    }
  +    [<DataContract>]
       type Entry = {
           [<field : DataMember(Name="ID")>]
  -        ID : string
  -        [<field : DataMember(Name="URL")>]
  -        URL : string
  +        ID : int
  +        [<field : DataMember(Name="Slug")>]
  +        Slug : string
           [<field : DataMember(Name="Title")>]
           Title : string
           [<field : DataMember(Name="PubDate")>]
  
positive.code:         
          (publishedPosts |> Seq.toArray).[startOf..endOf]
  
  
  
  
  
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)
      ]
  
  
  