@@ -13,6 +13,7 @@ import Prelude
1313import Data.Generic.Rep (class Generic)
1414import Data.Maybe (Maybe)
1515import Data.Newtype (class Newtype)
16+import Data.Variant (Variant)
1617import Prospero.GqlQuery (Mutation, Query, Subscription)
1718import Prospero.InputValue (class FromInputValue)
1819import Prospero.Metadata (Defaulted, Deprecated, Described, Enum, InputObject, Interface, Object, Scalar, Union, class IsGql)
@@ -53,9 +54,9 @@ instance IsGql InputObject "CreateUserInput" CreateUserInput
5354instance FromInputValue CreateUserInput where
5455 fromInputValue = newtypeFromInputValue
5556
56−data SearchResult = UserResult User | PostResult Post
57+newtype SearchResult = SearchResult (Variant (User :: User, Post :: Post))
5758
58−derive instance Generic SearchResult _
59+derive instance Newtype SearchResult _
5960instance IsGql Union "SearchResult" SearchResult
6061type Schema =
6162 { hello :: Query Unit String # Described "Get greeting"