Added count message to list

src/AddCorpusview.purs

@@ -15,7 +15,7 @@ import DOM.WebStorage.Storage (getItem, setItem)
 import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, encodeJson, jsonEmptyObject, (.?), (:=), (~>))
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.MediaType.Common (applicationJSON)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))
@@ -87,7 +87,7 @@ addcorpusviewSpec = simpleSpec performAction render
         div [className "container"]
         [
           div [className "jumbotron"]
-          [div [className "row"]
+          [ div [className "row"]
            [
              div [className "col-md-3"]
              [
@@ -109,7 +109,8 @@ fn1 :: Response -> ReactElement
 fn1 (Response o) =
   li [className "list-group-item justify-content-between"]
   [
-    span [className "badge badge-default badge-pill"] [ text $ show o.count_count]
+    span [] [text $ fromMaybe "" o.count_message]
+  ,  span [className "badge badge-default badge-pill"] [ text $ show o.count_count]
   ]