git.iko.soy/typeable/yaml
on master help sign in
Updated test.hs
4de9622Michael Snoyman
test/test.hs+10−15
compare with master
unifiedsplit
@@ -1,29 +1,24 @@
1{-# LANGUAGE MultiParamTypeClasses #-}
1{-# LANGUAGE MultiParamTypeClasses #-}
2+{-# LANGUAGE FlexibleInstances #-}
2import Text.Yaml
3import Text.Yaml
3import qualified Data.ByteString as B
4import qualified Data.ByteString as B
4import Control.Monad
5import Control.Monad
5−import Data.Convertible
6+import Data.Convertible.Text
6−
7+import Data.Object
7−-- FIXME
8+import Data.Object.Text
8−instance ConvertSuccess B.ByteString B.ByteString where
9− convertSuccess = id
10−instance ConvertAttempt B.ByteString B.ByteString where
11− convertAttempt = return
12
9
13main = do
10main = do
14 contents <- B.readFile "input.yaml"
11 contents <- B.readFile "input.yaml"
15− o <- decodeText contents
12+ o <- decodeText' contents
16 let contents2 = encodeText o
13 let contents2 = encodeText o
17 B.writeFile "output.yaml" contents2
14 B.writeFile "output.yaml" contents2
18− o2 <- decodeText contents2
15+ o2 <- decodeText' contents2
19 print o2
16 print o2
20−{-
17+
21 contents3 <- B.readFile "hebrew.yaml"
18 contents3 <- B.readFile "hebrew.yaml"
22 o3 <- decodeText contents3
19 o3 <- decodeText contents3
23− print (o3 :: B.ByteString)
20+ print o3
24 B.writeFile "hebrew.txt" o3
21 B.writeFile "hebrew.txt" o3
25
22
26− o4 <- join $ decodeFile "input.yaml"
23+instance ConvertAttempt (Object Text Text) B.ByteString where
27− print (o4 :: Object)
24+ convertAttempt = fromObject
28− encodeFile "output2.yaml" o4
29−-}