elm-bridge 0.5.0 → 0.5.1

raw patch · 4 files changed

+5/−5 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Elm.Module: DefineElm :: (Proxy a) -> DefineElm

+ Elm.Module: DefineElm :: Proxy a -> DefineElm

- Elm.TyRep: toElmType :: (Typeable a) => Proxy a -> EType

+ Elm.TyRep: toElmType :: Typeable a => Proxy a -> EType

Files

elm-bridge.cabal +1/−1
src/Elm/Json.hs +2/−2
test/Elm/JsonSpec.hs +1/−1
test/Elm/ModuleSpec.hs +1/−1

elm-bridge.cabal view

@@ -1,5 +1,5 @@ name:                elm-bridge-version:             0.5.0+version:             0.5.1 synopsis:            Derive Elm types and Json code from Haskell types, using aeson's options description:         Building the bridge from Haskell to Elm and back. Define types once,                      and derive the aeson and elm functions at the same time, using any aeson

src/Elm/Json.hs view

@@ -190,8 +190,8 @@             xs ->                 let tupleArgsV = zip xs ([1..] :: [Int])                     tupleArgs =-                        intercalate "," $ map (\(_, v) -> "v" ++ show v) tupleArgsV-                in "(\\(" ++ tupleArgs ++ ") -> Json.Encode.list identity [" ++  intercalate "," (map (\(t', idx) -> "(" ++ jsonSerForType t' ++ ") v" ++ show idx) tupleArgsV) ++ "])"+                        intercalate "," $ map (\(_, v) -> "t" ++ show v) tupleArgsV+                in "(\\(" ++ tupleArgs ++ ") -> Json.Encode.list identity [" ++  intercalate "," (map (\(t', idx) -> "(" ++ jsonSerForType t' ++ ") t" ++ show idx) tupleArgsV) ++ "])"   -- | Compile a JSON serializer for an Elm type definition

test/Elm/JsonSpec.hs view

@@ -97,7 +97,7 @@     , "   Json.Encode.object"     , "   [ (\"name\", localEncoder_a val.name)"     , "   , (\"blablub\", Json.Encode.int val.blablub)"-    , "   , (\"tuple\", (\\(v1,v2) -> Json.Encode.list identity [(Json.Encode.int) v1,(Json.Encode.string) v2]) val.tuple)"+    , "   , (\"tuple\", (\\(t1,t2) -> Json.Encode.list identity [(Json.Encode.int) t1,(Json.Encode.string) t2]) val.tuple)"     , "   , (\"list\", (Json.Encode.list Json.Encode.bool) val.list)"     , "   ]"     ]

test/Elm/ModuleSpec.hs view

@@ -62,7 +62,7 @@     , "   Json.Encode.object"     , "   [ (\"name\", localEncoder_a val.name)"     , "   , (\"blablub\", Json.Encode.int val.blablub)"-    , "   , (\"tuple\", (\\(v1,v2) -> Json.Encode.list identity [(Json.Encode.int) v1,(Json.Encode.string) v2]) val.tuple)"+    , "   , (\"tuple\", (\\(t1,t2) -> Json.Encode.list identity [(Json.Encode.int) t1,(Json.Encode.string) t2]) val.tuple)"     , "   , (\"list\", (Json.Encode.list Json.Encode.bool) val.list)"     , "   , (\"list_map\", (Json.Encode.list (encodeMap (Json.Encode.string) (Json.Encode.bool))) val.list_map)"     , "   ]"