module Data.Object.Scalar
( Scalar (..)
, ScalarObject
, toScalarObject
, fromScalarObject
, module Data.Object.Base
) where
import Data.ByteString.Lazy (ByteString, empty)
import Data.Time.Clock (UTCTime)
import Data.Object.Text
import Data.Object.Base
import System.Locale (defaultTimeLocale)
import Data.Time.Format (formatTime)
import Data.Attempt
import Data.Convertible.Text
data Scalar = Numeric Rational
| Text Text
| Binary ByteString
| Bool Bool
| Timestamp UTCTime
| Null
type ScalarObject = Object String Scalar
instance ConvertSuccess Scalar Text where
convertSuccess (Numeric n) = convertSuccess $ show n
convertSuccess (Text t) = t
convertSuccess (Binary b) = convertSuccess b
convertSuccess (Bool True) = convertSuccess "true"
convertSuccess (Bool False) = convertSuccess "false"
convertSuccess (Timestamp t) =
convertSuccess $ formatTime defaultTimeLocale "%FT%XZ" t
convertSuccess Null = convertSuccess empty
toScalarObject :: ConvertSuccess a ScalarObject => a -> ScalarObject
toScalarObject = cs
fromScalarObject :: ConvertAttempt ScalarObject a
=> ScalarObject
-> Attempt a
fromScalarObject = ca