diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-02-01 20:46:35 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-02-01 20:46:35 +0100 |
| commit | 67bebf853ca5a248358ea1854124a46b70c677cd (patch) | |
| tree | b103bf025a1d0f48c2524dd3c2237ff13fd99ec5 /tests/Test/StarWars/Data.hs | |
| parent | e8b82122c646ba159146c986cc8983d66f790142 (diff) | |
| download | graphql-67bebf853ca5a248358ea1854124a46b70c677cd.tar.gz | |
Replace MonadIO constraint with just Monad
And make the tests use Identity instead of IO.
Diffstat (limited to 'tests/Test/StarWars/Data.hs')
| -rw-r--r-- | tests/Test/StarWars/Data.hs | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/tests/Test/StarWars/Data.hs b/tests/Test/StarWars/Data.hs index 4854f8f..0318d78 100644 --- a/tests/Test/StarWars/Data.hs +++ b/tests/Test/StarWars/Data.hs @@ -8,7 +8,6 @@ module Test.StarWars.Data , getEpisode , getFriends , getHero - , getHeroIO , getHuman , id_ , homePlanet @@ -18,10 +17,8 @@ module Test.StarWars.Data ) where import Data.Monoid (mempty) -import Control.Applicative ( Alternative(..) - , liftA2 - ) -import Control.Monad.IO.Class (MonadIO(..)) +import Data.Functor.Identity (Identity) +import Control.Applicative (Alternative(..), liftA2) import Control.Monad.Trans.Except (throwE) import Data.Maybe (catMaybes) import Data.Text (Text) @@ -71,7 +68,7 @@ appearsIn :: Character -> [Int] appearsIn (Left x) = _appearsIn . _droidChar $ x appearsIn (Right x) = _appearsIn . _humanChar $ x -secretBackstory :: MonadIO m => Character -> ActionT m Text +secretBackstory :: Character -> ActionT Identity Text secretBackstory = const $ ActionT $ throwE "secretBackstory is secret." typeName :: Character -> Text @@ -166,9 +163,6 @@ getHero :: Int -> Character getHero 5 = luke getHero _ = artoo -getHeroIO :: Int -> IO Character -getHeroIO = pure . getHero - getHuman :: Alternative f => ID -> f Character getHuman = fmap Right . getHuman' |