{-# OPTIONS_GHC -fno-warn-unused-matches #-} module Handler.Add where import Import import Database.Persist.Sql import Data.List (nub) -- View getAddViewR :: Handler Html getAddViewR = do userId <- requireAuthId murl <- lookupGetParam "url" mformdb <- runDB (pure . fmap _toBookmarkForm =<< fetchBookmarkByUrl userId murl) formurl <- bookmarkFormUrl let renderEl = "addForm" :: Text popupLayout $ do toWidget [whamlet|