sugar-json 0.0.1 → 0.0.1.1

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

src/Sugar/Json.hs +1/−1
sugar-json.cabal +1/−1

src/Sugar/Json.hs view

@@ -87,7 +87,7 @@  instance ToSugarCube Json.Value where   toSugarCube Json.Null = SugarCube'Unit-  toSugarCube (Json.Bool b) = SugarCube'Text (T.pack $ show b)+  toSugarCube (Json.Bool b) = SugarCube'Text (if b then "#t" else "#f")   toSugarCube (Json.String t) = SugarCube'Text t   toSugarCube (Json.Number n) = SugarCube'Text (showNumber n)     where

sugar-json.cabal view

@@ -1,5 +1,5 @@ name: sugar-json-version: 0.0.1+version: 0.0.1.1 synopsis: Sugar with JSON homepage: https://github.com/jxv/sugar#readme description: Please see the README on GitHub at <https://github.com/jxv/sugar#readme>