{-# LANGUAGE OverloadedStrings #-}
module App where
import Component
import Notes
import Reflex.Dom
import Data.Semigroup ((<>))

app :: MonadWidget t m => m ()
app = do
  add <- (BlankNote <$) <$> button "New Note"
  rec remove <- render =<<
    initializeComponent memepty (WriteNote `map` ["Bend", "Cheese it"]) (add <> remove)
  blank