Skip to content
Browse files

Minor code cleanup

  • Loading branch information...
1 parent 475a2bc commit a233dc2d1ac349bb05d646be3da54bfd76f057ce @lpsmith committed Jun 13, 2011
Showing with 1 addition and 3 deletions.
  1. +1 −3 src/Data/Json/Builder.hs
View
4 src/Data/Json/Builder.hs
@@ -62,8 +62,6 @@ import Data.Monoid ( Monoid (mempty, mappend, mconcat) )
import Data.Int ( Int8, Int16, Int32, Int64)
import Data.Word ( Word, Word8, Word16, Word32, Word64 )
-import qualified Data.Char as Char
-
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.UTF8 as BU
@@ -251,7 +249,7 @@ instance (JsString k, Value a) => JsObject (HashMap.HashMap k a) where
------------------------------------------------------------------------------
quoteNeeded :: Char -> Bool
-quoteNeeded c = c == '\\' || c == '"' || Char.ord c < 0x20
+quoteNeeded c = c == '\\' || c == '"' || c < '\x20'
{-# INLINE quoteNeeded #-}
quoteChar :: Char -> Builder

0 comments on commit a233dc2

Please sign in to comment.
Something went wrong with that request. Please try again.