@@ -49,6 +49,7 @@ import Data.Monoid (Dual(..), First(..), Last(..))
4949import Data.Ratio (Ratio)
5050import Data.Text (Text, pack, unpack)
5151import Data.Text.Encoding (decodeUtf8, encodeUtf8)
52+import Data.String (IsString(..))
5253import Data.Time.Clock (UTCTime)
5354import Data.Time.Format (FormatTime, formatTime, parseTime)
5455import Data.Attoparsec.Char8 (Number(..))
@@ -154,6 +155,9 @@ instance NFData Value where
154155 rnf Null = ()
155156 rnf Missing = ()
156157
158+instance IsString Value where
159+ fromString = String . pack
160+
157161-- | The empty array.
158162emptyArray :: Value
159163emptyArray = Array V.empty