module Operations.Insert where import Control.Monad.Buuka import Control.Monad.State (modify) import qualified Data.Buuka as B insert :: String -> Maybe String -> BuukaM () insert url title = buukaU (modify (B.insert entry)) where entry = B.BuukaEntry{ B.url = B.URL url, B.title = title }