From f084384a63556163b5c37eb361eb0403004405ff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Maciej=20J=2E=20Ba=C5=84kowski?= <bankowski@tendersoft.pl>
Date: Sun, 10 Apr 2016 18:14:51 +0200
Subject: [PATCH] * fix 'string option' expected, got 'string' compilation
 issue https://github.com/tpetricek/suave-fshome/issues/1

---
 app.fsx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app.fsx b/app.fsx
index bde05cf..7aee191 100644
--- a/app.fsx
+++ b/app.fsx
@@ -45,7 +45,7 @@ let getFeedNews () = async {
         yield "<li>"
         yield sprintf "<h3><a href=\"%s\">%s</a></h3>" item.Link item.Title
         yield sprintf "<p class=\"date\">%s</p>" (formatDate item.PubDate)
-        yield sprintf "<p>%s</p>" (formatText 500 (stripHtml (defaultArg item.Description "")))
+        yield sprintf "<p>%s</p>" (formatText 500 (stripHtml (defaultArg (Some item.Description) "")))
         yield "</li>" ]
   return String.concat "" html }