Skip to content

Instantly share code, notes, and snippets.

@bradclawsie

bradclawsie/loaddictionary3.hs

Created December 27, 2011 06:07
Show Gist options
  • Save bradclawsie/1522847 to your computer and use it in GitHub Desktop.
Save bradclawsie/1522847 to your computer and use it in GitHub Desktop.
Download ZIP
loaddictionary3.hs
Raw
loaddictionary3.hs
module Main where
import qualified Control.Monad as C
import qualified Network.Memcache as MC
import qualified Network.Memcache.Protocol as S
main = do
conn <- S.connect "127.0.0.1" 11212
words <- (C.liftM lines . readFile) "/etc/dictionaries-common/words"
sets <- C.mapM_ (\w -> MC.set conn w (1::Int)) words
S.disconnect conn
return ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment