1dad547 · typeable/yaml

git.iko.soy/typeable/yaml

on master help sign in

Add in json2yaml

1dad547Michael Snoyman13 years ago

exe/json2yaml.hsnew file+25

compare with master

unifiedsplit

@@ -0,0 +1,25 @@

1+{-# LANGUAGE MultiParamTypeClasses #-}

2+{-# LANGUAGE FlexibleInstances #-}

3+import System.Environment (getArgs)

4+import qualified Data.Aeson as J

5+import qualified Data.Yaml as Y

6+import Control.Monad (when)

7+import qualified Data.ByteString as S

8+import qualified Data.ByteString.Lazy as L

9+import Control.Applicative ((<$>))

10+

11+main :: IO ()

12+main = do

13+ args <- getArgs

14+ when (length args > 2) $ error "Usage: json2yaml [in] [out]"

15+ let (input:output:_) = args ++ repeat "-"

16+ mval <- J.decode <$>

17+ case input of

18+ "-" -> L.getContents

19+ _ -> L.readFile input

20+ case mval of

21+ Nothing -> error "Invalid input JSON"

22+ Just val -> do

23+ case output of

24+ "-" -> S.putStr $ Y.encode (val :: Y.Value)

25+ _ -> Y.encodeFile output val

yaml.cabal+15−2

@@ -1,5 +1,5 @@

1name: yaml

2−version: 0.8.7.2

2+version: 0.8.8

3license: BSD3

4license-file: LICENSE

5author: Michael Snoyman <michael@snoyman.com>, Anton Ageev <antage@gmail.com>,Kirill Simonov

@@ -30,7 +30,7 @@ extra-source-files: c/helper.h,

30 test/json.yaml

32flag no-exe

33− description: don't install the yaml2json executable

33+ description: don't install the yaml2json or json2yaml executables

34 default: False

36flag system-libyaml

@@ -84,6 +84,19 @@ executable yaml2json

84 , bytestring >= 0.9.1.4

85 , aeson >= 0.5

87+executable json2yaml

88+ if flag(no-exe)

89+ Buildable: False

90+ else

91+ Buildable: True

92+

93+ hs-source-dirs: exe

94+ main-is: json2yaml.hs

95+ build-depends: base >= 4 && < 5

96+ , yaml

97+ , bytestring >= 0.9.1.4

98+ , aeson >= 0.5

99+

100

88test-suite test

101test-suite test

89 type: exitcode-stdio-1.0

102 type: exitcode-stdio-1.0