-- | Module containing all the functions necessary to make a connection to-- the Redis server.moduleDatabase.Redis.Connection(defaultPort,localhost,connect,disconnect)whereimportNetworkimportSystem.IO------------------------------------------------------------------------------defaultPort::PortNumberdefaultPort=6379::PortNumber------------------------------------------------------------------------------localhost::HostNamelocalhost="127.0.0.1"::HostName------------------------------------------------------------------------------connect::HostName->PortNumber->IOHandleconnecthostport=withSocketsDo$doh<-connectTohost(PortNumberport)hSetNewlineModeh(NewlineModeCRLFCRLF)hSetBufferinghNoBufferingreturnh------------------------------------------------------------------------------disconnect::Handle->IO()disconnecth=hCloseh-- QUIT-- AUTH