@@ -47,9 +47,9 @@ import qualified Data.IntSet as IntSet
47import Data.Map (Map)
47import Data.Map (Map)
48import Data.Monoid (Dual(..), First(..), Last(..))
48import Data.Monoid (Dual(..), First(..), Last(..))
49import Data.Ratio (Ratio)
49import Data.Ratio (Ratio)
50+import Data.String (IsString(..))
50import Data.Text (Text, pack, unpack)
51import Data.Text (Text, pack, unpack)
51import Data.Text.Encoding (decodeUtf8, encodeUtf8)
52import Data.Text.Encoding (decodeUtf8, encodeUtf8)
52−import Data.String (IsString(..))
53import Data.Time.Clock (UTCTime)
53import Data.Time.Clock (UTCTime)
54import Data.Time.Format (FormatTime, formatTime, parseTime)
54import Data.Time.Format (FormatTime, formatTime, parseTime)
55import Data.Attoparsec.Char8 (Number(..))
55import Data.Attoparsec.Char8 (Number(..))
@@ -157,6 +157,7 @@ instance NFData Value where
158instance IsString Value where
158instance IsString Value where
159 fromString = String . pack
159 fromString = String . pack
160+ {-# INLINE fromString #-}
161-- | The empty array.
162-- | The empty array.
162emptyArray :: Value
163emptyArray :: Value