17 lines
335 B
Haskell
17 lines
335 B
Haskell
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 }
|