sampleBlogPosts :: [BlogPost]
sampleBlogPosts =
  let ba = BlogPost "2017-01-01 00:00:01" "First Blog Post" "How can I insert data into the data structure" ("http://tenggren.net/product.jpg", "Product") [("http://google.com", "Google"), ("http://svt.se", "SVT")]
      bb = BlogPost "2017-01-02 13:56:34" "Second Blog Post" "Getting warm" ("http://tenggren.net/kajak.jpg", "Kajak") [("http://haskell.org", "Haskell"), ("http://spock.li", "Spock")]
  in [ba, bb]
sampleBlogPosts :: [BlogPost]
sampleBlogPosts =
  let ba = BlogPost "2017-01-01 00:00:01" "First Blog Post" "How can I insert data into the data structure" ("http://tenggren.net/product.jpg", "Product") [("http://google.com", "Google"), ("http://svt.se", "SVT")]
      bb = BlogPost "2017-01-02 13:56:34" "Second Blog Post" "Getting warm" ("http://tenggren.net/kajak.jpg", "Kajak") [("http://haskell.org", "Haskell"), ("http://spock.li", "Spock")]
  in [ba, bb]
sampleBlogPosts =
  let ba = BlogPost "2017-01-01 00:00:01" "First Blog Post" "How can I insert data into the data structure" ("http://tenggren.net/product.jpg", "Product") [("http://google.com", "Google"), ("http://svt.se", "SVT")]
      bb = BlogPost "2017-01-02 13:56:34" "Second Blog Post" "Getting warm" ("http://tenggren.net/kajak.jpg", "Kajak") [("http://haskell.org", "Haskell"), ("http://spock.li", "Spock")]
  in [ba, bb]