elm-export 0.3.0.2 → 0.4.0.0
raw patch · 5 files changed
+11/−30 lines, 5 filesdep ~elm-exportPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: elm-export
API changes (from Hackage documentation)
Files
- elm-export.cabal +2/−2
- src/Elm/Decoder.hs +2/−2
- src/Elm/Encoder.hs +2/−2
- src/Elm/Record.hs +4/−4
- test/ExportSpec.hs +1/−20
elm-export.cabal view
@@ -1,5 +1,5 @@ name: elm-export-version: 0.3.0.2+version: 0.4.0.0 cabal-version: >=1.10 build-type: Simple license: OtherLicense@@ -47,7 +47,7 @@ base >=4.8.2.0 && <4.9, bytestring >=0.10.6.0 && <0.11, containers >=0.5.6.2 && <0.6,- elm-export >=0.3.0.2 && <0.4,+ elm-export >=0.4.0.0 && <0.5, hspec >=2.2.2 && <2.3, hspec-core >=2.2.2 && <2.3, quickcheck-instances >=0.3.12 && <0.4,
src/Elm/Decoder.hs view
@@ -19,7 +19,7 @@ render (DataType d _) = return $ "decode" ++ d -render (Record n t) = printf " Json.Decode.succeed %s\n%s" n <$> render t+render (Record n t) = printf " Json.Decode.succeed %s\n%s" n <$> render t render (Product (Primitive "List") (Primitive "Char")) = render (Primitive "String") @@ -34,7 +34,7 @@ render (Selector n t) = do fieldModifier <- asks fieldLabelModifier- printf " |: (\"%s\" := %s)" (fieldModifier n) <$> render t+ printf " |: (\"%s\" := %s)" (fieldModifier n) <$> render t render (Tuple2 x y) = do bodyX <- render x
src/Elm/Encoder.hs view
@@ -15,7 +15,7 @@ render (DataType d _) = return $ "encode" ++ d render (Record _ t) =- printf "\n Json.Encode.object\n [ %s\n ]" <$> render t+ printf "\n Json.Encode.object\n [ %s\n ]" <$> render t render (Product (Primitive "List") (Primitive "Char")) = render (Primitive "String")@@ -39,7 +39,7 @@ render (Product x y) = do bodyX <- render x bodyY <- render y- return $ printf "%s\n , %s" bodyX bodyY+ return $ printf "%s\n , %s" bodyX bodyY render (Selector n t) = do fieldModifier <- asks fieldLabelModifier
src/Elm/Record.hs view
@@ -8,10 +8,10 @@ render :: ElmTypeExpr -> Reader Options String render (TopLevel (DataType dataTypeName record@(Record _ _))) =- printf "type alias %s =\n { %s\n }" dataTypeName <$> render record+ printf "type alias %s =\n { %s\n }" dataTypeName <$> render record render (TopLevel (DataType d s@(Sum _ _))) =- printf "type %s\n = %s" d <$> render s+ printf "type %s\n = %s" d <$> render s render (DataType d _) = return d render (Primitive s) = return s@@ -19,7 +19,7 @@ render (Sum x y) = do bodyX <- render x bodyY <- render y- return $ printf "%s\n | %s" bodyX bodyY+ return $ printf "%s\n | %s" bodyX bodyY render (Field t) = render t @@ -60,7 +60,7 @@ render (Record n (Product x y)) = do bodyX <- render (Record n x) bodyY <- render (Record n y)- return $ printf "%s\n , %s" bodyX bodyY+ return $ printf "%s\n , %s" bodyX bodyY render (Record _ s@(Selector _ _)) = render s
test/ExportSpec.hs view
@@ -4,9 +4,6 @@ module ExportSpec where --- import Data.Aeson--- import Data.ByteString hiding (readFile)--- import qualified Data.ByteString.Lazy as LBS import Data.Char import Data.Map import Data.Proxy@@ -95,11 +92,6 @@ (defaultOptions {fieldLabelModifier = withPrefix "comment"}) (Proxy :: Proxy Comment) "test/CommentDecoderWithOptions.elm"- it "toElmDecoderSourceWithOptions Position" $- shouldMatchDecoderSource- (defaultOptions {fieldLabelModifier = withPrefix "position"})- (Proxy :: Proxy Position)- "test/PositionDecoderWithOptions.elm" toElmEncoderSpec :: Hspec.Spec toElmEncoderSpec =@@ -112,10 +104,6 @@ shouldMatchEncoderSource defaultOptions (Proxy :: Proxy Comment) "test/CommentEncoder.elm"- it "toElmEncoderSource Position" $- shouldMatchEncoderSource defaultOptions- (Proxy :: Proxy Position)- "test/PositionEncoder.elm" it "toElmEncoderSourceWithOptions Post" $ shouldMatchEncoderSource (defaultOptions {fieldLabelModifier = withPrefix "post"})@@ -126,11 +114,6 @@ (defaultOptions {fieldLabelModifier = withPrefix "comment"}) (Proxy :: Proxy Comment) "test/CommentEncoderWithOptions.elm"- it "toElmEncoderSourceWithOptions Position" $- shouldMatchEncoderSource- (defaultOptions {fieldLabelModifier = withPrefix "position"})- (Proxy :: Proxy Position)- "test/PositionEncoderWithOptions.elm" shouldMatchTypeSource :: ElmType a@@ -151,7 +134,7 @@ shouldMatchFile . printf outputWrapping $ toElmEncoderSourceWith options x outputWrapping :: String-outputWrapping = "module Main (..) where\n\n\n%s\n"+outputWrapping = "module Main exposing (..)\n\n\n%s\n" shouldMatchFile :: String -> FilePath -> IO () shouldMatchFile actual fileExpected =@@ -164,5 +147,3 @@ withPrefix :: String -> String -> String withPrefix prefix s = prefix ++ initCap s--k = hspec spec