use currentItemChanged signal instead of itemSelectionChanged - since the latter is always one item behind if you hold down the mousebutton and move the cursor through the list

{-# LANGUAGE OverloadedStrings #-}
module Consts where

import qualified Data.ByteString.Char8 as B

serverVersion :: B.ByteString
serverVersion = "0"