--- a/gameServer/Utils.hs	Thu Jan 27 22:10:24 2011 +0300
+++ b/gameServer/Utils.hs	Thu Jan 27 22:14:14 2011 +0300
@@ -14,6 +14,7 @@
 import System.IO
 import qualified Data.List as List
 import Control.Monad
+import Control.Monad.Trans
 import Data.Maybe
 -------------------------------------------------
 import qualified Codec.Binary.Base64 as Base64
@@ -121,5 +122,3 @@
 
 showB :: Show a => a -> B.ByteString
 showB = B.pack .show
-
-io = liftIO