gameServer/Utils.hs
changeset 11843 8f730ba4ca3c
parent 11580 db7743e2fad1
child 12119 cdadc1d487f1
--- a/gameServer/Utils.hs	Wed Jun 22 09:25:29 2016 -0400
+++ b/gameServer/Utils.hs	Wed Jun 29 20:16:29 2016 +0300
@@ -29,7 +29,6 @@
 import qualified Data.List as List
 import Control.Monad
 import qualified Data.ByteString.Lazy as BL
-import qualified Text.Show.ByteString as BS
 import qualified Data.ByteString.Char8 as B
 import qualified Data.ByteString.UTF8 as UTF8
 import Data.Maybe
@@ -132,8 +131,8 @@
         Right (a, new_b) -> let (a', b') = unfoldrE f new_b in (a : a', b')
         Left new_b       -> ([], new_b)
 
-showB :: (BS.Show a) => a -> B.ByteString
-showB = B.concat . BL.toChunks . BS.show
+showB :: (Show a) => a -> B.ByteString
+showB = B.pack . show
 
 readInt_ :: (Num a) => B.ByteString -> a
 readInt_ str =