loaddictionary.hs

loaddictionary.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

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

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