* fix 'string option' expected, got 'string' compilation issue tpetri…

…cek#1
n074v41l4bl34u · Apr 10, 2016 · f084384 · f084384
1 parent 01180ae
commit f084384
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 }