@@ -51,6 +51,7 @@ import qualified Data.ByteString.Char8 as S8
5151import Data.Conduit
5252import Data.Scientific (Scientific)
5353import Data.Text (Text, unpack)
54+import qualified Data.Text as T
5455import qualified Data.Text.Encoding as TE
5556import qualified Data.Text.Lazy as TL
5657import Data.Text.Lazy.Builder (toLazyText)
@@ -74,8 +75,18 @@ instance ToYaml a => ToYaml [a] where
7475 toYaml = array . map toYaml
7576instance ToYaml Text where
7677 toYaml = string
78+instance ToYaml String where
79+ toYaml = string . T.pack
7780instance ToYaml Int where
7881 toYaml i = YamlBuilder (EventScalar (S8.pack $ show i) NoTag PlainNoTag Nothing:)
82+instance ToYaml Double where
83+ toYaml i = YamlBuilder (EventScalar (S8.pack $ show i) NoTag PlainNoTag Nothing:)
84+instance ToYaml Scientific where
85+ toYaml = scientific
86+instance ToYaml Bool where
87+ toYaml = bool
88+instance ToYaml a => ToYaml (Maybe a) where
89+ toYaml = maybe null toYaml
7990
8091-- |
8192-- @since 0.10.3.0