use absolute time

purs/src/Component/BMark.purs

@@ -7,15 +7,14 @@ import Component.Markdown as Markdown
 import Data.Array (drop, foldMap)
 import Data.Const (Const)
 import Data.Lens (Lens', lens, use, (%=), (.=))
-import Data.Maybe (Maybe(..), fromMaybe, isJust, maybe)
+import Data.Maybe (Maybe(..), fromMaybe, isJust)
 import Data.Monoid (guard)
 import Data.Nullable (toMaybe)
 import Data.String (null, split, take) as S
 import Data.String.Pattern (Pattern(..))
 import Data.Symbol (SProxy(..))
-import Data.Tuple (fst, snd)
 import Effect.Aff (Aff)
-import Globals (app', mmoment8601)
+import Globals (app')
 import Halogen as H
 import Halogen.HTML (HTML, a, br_, button, div, div_, form, input, label, span, text, textarea)
 import Halogen.HTML as HH
@@ -124,8 +123,8 @@ bmark b' =
                              [ text tag ])
                 (S.split (Pattern " ") bm.tags)
               
-        , a [ class_ "link f7 dib gray w4", title (maybe bm.time snd mmoment) , href (linkToFilterSingle bm.slug) ]
-          [ text (maybe " " fst mmoment) ]
+        , a [ class_ "link f7 dib gray w4", href (linkToFilterSingle bm.slug) ]
+          [ text shtime ]
 
         -- links
         , whenH app.dat.isowner $ \_ ->
@@ -194,7 +193,7 @@ bmark b' =
      editField f = Just <<< BEditField <<< f
      linkToFilterSingle slug = fromNullableStr app.userR <> "/b:" <> slug
      linkToFilterTag tag = fromNullableStr app.userR <> "/t:" <> tag
-     mmoment = mmoment8601 bm.time
+     shtime = S.take 16 bm.time
      toTextarea input =
        S.split (Pattern "\n") input
        # foldMap (\x -> [br_, text x])

purs/src/Component/RawHtml.purs

@@ -5,7 +5,8 @@ import Prelude
 import Data.Foldable (for_)
 import Data.Maybe (Maybe(..))
 import Effect (Effect)
-import Effect.Aff (Aff)
+import Effect.Aff (Aff, forkAff, makeAff)
+import Effect.Class (liftEffect)
 import Globals (RawHTML(..))
 import Halogen as H
 import Halogen.HTML as HH
@@ -52,7 +53,9 @@ mkComponent toRawHTML =
       mel <- H.getHTMLElementRef elRef
       for_ mel \el -> do  
         { inputval } <- H.get
-        H.liftEffect (unsafeSetInnerHTML el (toRawHTML inputval))
+        H.liftAff $ forkAff $ makeAff \cb -> do
+          liftEffect $ unsafeSetInnerHTML el (toRawHTML inputval)
+          mempty
       pure unit
     
     Receive inputval -> do

purs/src/Marked.js

@@ -6,5 +6,6 @@ marked.setOptions({
 });
 
 exports.markedImpl = function(str) {
+  if (!str) return "";
   return marked(str);
 };