Updates: example Elm output code

Author: dragonwasrobot

examples/example-output-elm-code/src/Data/Circle.elm

@@ -2,8 +2,6 @@ module Data.Circle exposing (..)
 
 -- Schema for a circle shape
 
-import Data.Definitions as Definitions
-import Data.Encode as Encode
 import Json.Decode as Decode exposing (Decoder)
 import Json.Decode.Extra as Decode
 import Json.Decode.Pipeline
@@ -13,6 +11,8 @@ import Json.Decode.Pipeline
         , required
         )
 import Json.Encode as Encode exposing (Value)
+import Data.Encode as Encode
+import Data.Definitions as Definitions
 
 
 type alias Circle =

examples/example-output-elm-code/src/Data/Encode.elm

@@ -1,48 +1,10 @@
-module Data.Encode
-    exposing
-        ( nestedOptional
-        , nestedRequired
-        , optional
-        , required
-        )
+module Data.Encode exposing (optional, required)
 
 -- Helper functions for encoding JSON objects.
 
 import Json.Encode as Encode exposing (Value)
 
 
-nestedRequired :
-    String
-    -> Maybe a
-    -> (a -> b)
-    -> (b -> Value)
-    -> List ( String, Value )
-    -> List ( String, Value )
-nestedRequired key maybeData getValue encode properties =
-    case maybeData of
-        Just data ->
-            properties |> required key (getValue data) encode
-
-        Nothing ->
-            properties
-
-
-nestedOptional :
-    String
-    -> Maybe a
-    -> (a -> Maybe b)
-    -> (b -> Value)
-    -> List ( String, Value )
-    -> List ( String, Value )
-nestedOptional key maybeData getValue encode properties =
-    case maybeData of
-        Just data ->
-            properties |> optional key (getValue data) encode
-
-        Nothing ->
-            properties
-
-
 required :
     String
     -> a

examples/example-output-elm-code/tests/Data/DefinitionsTests.elm

@@ -11,14 +11,17 @@ import Data.Definitions exposing (..)
 
 colorFuzzer : Fuzzer Color
 colorFuzzer =
-    [ Red, Yellow, Green, Blue ]
-        |> List.map Fuzz.constant
-        |> Fuzz.oneOf
+    Fuzz.oneOf
+        [ Fuzz.constant Red
+        , Fuzz.constant Yellow
+        , Fuzz.constant Green
+        , Fuzz.constant Blue
+        ]
 
 
 encodeDecodeColorTest : Test
 encodeDecodeColorTest =
-    fuzz colorFuzzer "can encode and decode Color object" <|
+    fuzz colorFuzzer "can encode and decode Color" <|
         \color ->
             color
                 |> encodeColor