Skip to content

Instantly share code, notes, and snippets.

@bradclawsie
Created December 27, 2011 05:17
Show Gist options
  • Save bradclawsie/1522774 to your computer and use it in GitHub Desktop.
Save bradclawsie/1522774 to your computer and use it in GitHub Desktop.
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 ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment