Cargo Cult Hedis

gistfile1.hs

import Database.Redis
import Control.Monad.IO.Class
import Data.ByteString.Char8
 
main :: IO ()
main = do
        conn <- connect defaultConnectInfo
        runRedis conn $ do
          set (pack "hello") (pack "hello")
          hello <- get $ pack "hello"
          liftIO $ print $ hello
        print "Success"

WHEEEEEEEEE

it's too bad you have to do all that packing and unpacking but hopefully the web apis will also give you bytestrings so you can just pass them back and forth without conversion.

This prints:

Right (Just "hello")
"Success"