loaddictionary2.hs

loaddictionary2.hs

module Main where
import qualified Data.List as L
import qualified Control.Monad as C
import qualified Network.Memcache as MC
import qualified Network.Memcache.Protocol as S
import qualified Data.ByteString.Char8 as BC

setword conn word = do
  let b_word = BC.unpack word
  success <- MC.set conn b_word (1 :: Int)
  C.when (success == False) $ print b_word
  return success

main = do
  conn <- S.connect "127.0.0.1" 11212
  words <- (C.liftM BC.lines . BC.readFile) "/etc/dictionaries-common/words"
  sets <- C.mapM (setword conn) words
  S.disconnect conn
  print $ L.all (== True) sets
  return ()