Update for haskell-to-elm-0.2.0.0

Author: ollef

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## Unreleased changes
 
+## 0.2.0.0
+
+- Update code with changes from `haskell-to-elm-0.2.0.0`
+
 ## 0.1.0.0
 
 - Initial release

examples/UserAPI.hs

@@ -22,27 +22,19 @@ import Servant.To.Elm
 data User = User
   { name :: Text
   , age :: Int
-  } deriving
-    ( Generic
-    , Aeson.ToJSON
-    , SOP.Generic
-    , SOP.HasDatatypeInfo
-    , HasElmDecoder Aeson.Value
-    , HasElmEncoder Aeson.Value
-    , HasElmType
-    )
-
-instance HasElmDefinition User where
+  } deriving (Generic, Aeson.ToJSON, SOP.Generic, SOP.HasDatatypeInfo)
+
+instance HasElmType User where
   elmDefinition =
-    deriveElmTypeDefinition @User defaultOptions "Api.User.User"
+    Just $ deriveElmTypeDefinition @User defaultOptions "Api.User.User"
 
-instance HasElmDecoderDefinition Aeson.Value User where
+instance HasElmDecoder Aeson.Value User where
   elmDecoderDefinition =
-    deriveElmJSONDecoder @User defaultOptions Aeson.defaultOptions "Api.User.decoder"
+    Just $ deriveElmJSONDecoder @User defaultOptions Aeson.defaultOptions "Api.User.decoder"
 
-instance HasElmEncoderDefinition Aeson.Value User where
+instance HasElmEncoder Aeson.Value User where
   elmEncoderDefinition =
-    deriveElmJSONEncoder @User defaultOptions Aeson.defaultOptions "Api.User.encoder"
+    Just $ deriveElmJSONEncoder @User defaultOptions Aeson.defaultOptions "Api.User.encoder"
 
 type UserAPI
   = "user" :> Get '[JSON] User

package.yaml

@@ -24,7 +24,7 @@ dependencies:
 - base >= 4.7 && < 5
 - bound >= 2.0.0
 - elm-syntax >= 0.1.0 && < 0.1.1
-- haskell-to-elm >= 0.1.0 && < 0.1.1
+- haskell-to-elm >= 0.2.0 && < 0.2.1
 - http-types >= 0.12.0
 - protolude >= 0.2.3
 - servant >= 0.16.0

src/Servant/To/Elm.hs

@@ -600,13 +600,9 @@ instance HasElmEndpoints api => HasElmEndpoints (Servant.Description description
 -------------------------------------------------------------------------------
 -- Orphans
 
-instance HasElmDefinition Servant.NoContent where
-  elmDefinition =
-    Definition.Type "NoContent.NoContent" [("NoContent", [])]
-
 instance HasElmType Servant.NoContent where
-  elmType =
-    "NoContent.NoContent"
+  elmDefinition =
+    Just $ Definition.Type "NoContent.NoContent" [("NoContent", [])]
 
 instance HasElmDecoder Aeson.Value Servant.NoContent where
   elmDecoder =

stack.yaml

@@ -3,4 +3,4 @@ packages:
 - .
 extra-deps:
 - elm-syntax-0.1.0.0
-- haskell-to-elm-0.1.0.0
+- haskell-to-elm-0.2.0.0