Added instance IsYamlScalar LazyText

snoyberg · Jan 21, 2010 · bf70812 · bf70812
1 parent 36ac194
commit bf70812
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Data/Object/Yaml.hs b/Data/Object/Yaml.hs
@@ -31,6 +31,7 @@ import Data.Typeable (Typeable)
 import Control.Failure
 import Control.Applicative
 import qualified Data.Text
+import qualified Data.Text.Lazy
 import "transformers" Control.Monad.Trans
 import Control.Monad
 
@@ -64,6 +65,9 @@ instance IsYamlScalar YamlScalar where
 instance IsYamlScalar Data.Text.Text where
     fromYamlScalar = cs . value
     toYamlScalar t = YamlScalar (cs t) NoTag Any
+instance IsYamlScalar Data.Text.Lazy.Text where
+    fromYamlScalar = cs . value
+    toYamlScalar t = YamlScalar (cs t) NoTag Any
 instance IsYamlScalar [Char] where
     fromYamlScalar = cs . value
     toYamlScalar s = YamlScalar (cs s) NoTag Any