}

in upstream// overrides

importData.Tuple.Nested ((/\))

importDate (prettyDate)

importDeku.Attribute ((:=))

importDeku.Control (dyn_,text,text_)

importDeku.Core (classKorok,Domable,insert_)

importDeku.Control (ezDyn_,text,text_)

importDeku.Core (classKorok,Domable)

importDeku.Do (useMemoized,useRemoval,useState,useState')

importDeku.Do (useMemoized,useState,useState')

importDeku.Listeners (click,injectElementT)

importDeku.Pursx (nut, (~~))

, articleHeader: nut $D.h2_ [ text_ title ]

, favoritesCount1: fCount

, favoritesCount2: fCount

, commentList: nut $ dyn_D.div

( ({ cu: _, com: _ } <$> currentUser <*> (newComment <|> oneOfMap pure comments)) <#> \{ cu, com }->Deku.do

setRemove /\ remove<- useRemoval

let profile = pure (D.Href :="/#/profile/" <> com.author.username)

common =

{ body: nut (text_ com.body)

, imgsrc: pure (D.Src := com.author.image)

, profile1: profile

, profile2: profile

, username: nut (text_ com.author.username)

, date: nut (text_ (prettyDate com.updatedAt))

}

remove <|>

( pure

$ insert_

$ maybe (theirComment_ ~~ common)

( \u->do

deleteAction = click $ puredo

launchAff_ $ deleteComment u.token slug com.id

setRemove

myComment_ ~~ (common`union` { deleteAction })

)

(case cuof

SignedIn u

| u.username == com.author.username->Just u

| otherwise->Nothing

)

)

)

, commentList: nut $ ezDyn_D.div $

({ cu: _, com: _ } <$> currentUser <*> (newComment <|> oneOfMap pure comments)) <#> \{ cu, com } { remove }->do

let profile = pure (D.Href :="/#/profile/" <> com.author.username)

common =

{ body: nut (text_ com.body)

, imgsrc: pure (D.Src := com.author.image)

, profile1: profile

, profile2: profile

, username: nut (text_ com.author.username)

, date: nut (text_ (prettyDate com.updatedAt))

}

maybe (theirComment_ ~~ common)

( \u->do

deleteAction = click $ puredo

launchAff_ $ deleteComment u.token slug com.id

remove

myComment_ ~~ (common`union` { deleteAction })

)

(case cuof

SignedIn u

| u.username == com.author.username->Just u

| otherwise->Nothing

)

}