kc1212

import Pipes
import qualified BTree as BT
import Control.Monad (unless, liftM)
import System.IO

-- probably don't need IO
listToProducer :: [BT.BLeaf String Int] -> Producer (BT.BLeaf String Int) IO ()
listToProducer [] = return ()
listToProducer a@(x:xs) =
    unless (null a) $ do

kc1212

import Control.Monad.State
import qualified Data.Map as Map

type MyMap = Map.Map Int Char

runDB :: StateT MyMap IO ()
runDB = do
    add 1 'a'
    add 2 'b'
    x <- find 1