diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-05-14 09:17:14 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-05-14 22:16:56 +0200 |
| commit | a5c44f30facdaabd94ed25953a3bd88005efa868 (patch) | |
| tree | bf768b92b5b3ecab5c939d04bf4ec6ebdb7e5257 /tests/Test/StarWars/Data.hs | |
| parent | 4c19c88e98bea77ebccc786cd55b30e23ab6e897 (diff) | |
| download | graphql-a5c44f30facdaabd94ed25953a3bd88005efa868.tar.gz | |
Add basic output object type support
Diffstat (limited to 'tests/Test/StarWars/Data.hs')
| -rw-r--r-- | tests/Test/StarWars/Data.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/Test/StarWars/Data.hs b/tests/Test/StarWars/Data.hs index 9466991..3cc8945 100644 --- a/tests/Test/StarWars/Data.hs +++ b/tests/Test/StarWars/Data.hs @@ -11,7 +11,7 @@ module Test.StarWars.Data , getHuman , id_ , homePlanet - , name + , name_ , secretBackstory , typeName ) where @@ -55,9 +55,9 @@ id_ :: Character -> ID id_ (Left x) = _id_ . _droidChar $ x id_ (Right x) = _id_ . _humanChar $ x -name :: Character -> Text -name (Left x) = _name . _droidChar $ x -name (Right x) = _name . _humanChar $ x +name_ :: Character -> Text +name_ (Left x) = _name . _droidChar $ x +name_ (Right x) = _name . _humanChar $ x friends :: Character -> [ID] friends (Left x) = _friends . _droidChar $ x |