buuka/src/Operations/Insert.hs

module Operations.Insert where

import Control.Monad.Buuka

import Control.Monad.State
       (modify)

import qualified Data.Buuka as B

import Data.Text
       (Text)

insert :: Text -> Maybe Text -> BuukaM ()
insert url title = buukaU (modify (B.insert entry))
  where
    entry = B.BuukaEntry{ B.url = B.URL url, B.title = title }