@@ -45,6 +45,7 @@ import qualified Data.IntSet as IntSet
45import Data.Map (Map)
45import Data.Map (Map)
46import Data.Monoid (Dual(..), First(..), Last(..))
46import Data.Monoid (Dual(..), First(..), Last(..))
47import Data.Ratio (Ratio)
47import Data.Ratio (Ratio)
48+import Data.String (IsString(..))
48import Data.Text (Text, pack, unpack)
49import Data.Text (Text, pack, unpack)
49import Data.Text.Encoding (decodeUtf8, encodeUtf8)
50import Data.Text.Encoding (decodeUtf8, encodeUtf8)
50import Data.Time.Clock (UTCTime)
51import Data.Time.Clock (UTCTime)
@@ -150,6 +151,10 @@ instance NFData Value where
150 rnf (Bool b) = rnf b
151 rnf (Bool b) = rnf b
151 rnf Null = ()
152 rnf Null = ()
154+instance IsString Value where
155+ fromString = String . pack
156+ {-# INLINE fromString #-}
153-- | The empty array.
158-- | The empty array.
154emptyArray :: Value
159emptyArray :: Value
155emptyArray = Array V.empty
160emptyArray = Array V.empty