Hedis thunk leak

gistfile1.hs

{-# LANGUAGE OverloadedStrings #-}

import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as BS
import Data.Serialize

import Control.Monad
import System.IO
import Database.Redis
import Data.List.Split
import Control.Monad.IO.Class

type Entity = ByteString

connectInfo = defaultConnectInfo {connectHost="localhost"}

main = do
  conn ← connect connectInfo
  go conn 1

go conn n = do
  runRedis conn $ sadd "hello" [encode n]
  go conn (n+1::Int)