gistfile1.hs

{-# LANGUAGE OverloadedStrings #-}

import Database.Redis
import Network.CGI
import qualified Data.ByteString.Char8 as BL

setKey conn key value = do
  runRedis conn $ do
    set key value

getKey conn key = do
  runRedis conn $ do
    result <- get key
    return result

getKey' key conn = do
  runRedis conn $ do
    result <- get key
    return result

main = do
      conn <- connect defaultConnectInfo
      putStrLn "What?"
      key <- getLine
      --print key
      result <- getKey conn (BL.pack key)
      case result of
        Right maybe_val ->
          case maybe_val of
            Just val -> putStrLn $ "Key value -> " ++ (BL.unpack val)
            Nothing -> putStrLn "Nothing! Go away!"
        Left err -> print "No!!"

For simplicity:

getKey conn key = runResid conn $ get key

getKey' key conn = runResid conn $ get key

Or even:

getKey conn = runResid conn . get
getKey' = flip getKey

getKey' = flip getKey is evil, flip is evil.