diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2019-06-08 20:48:07 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2019-06-09 14:35:50 +0200 |
| commit | 4c44e323e8ac0e28e87e93ab53cbf7eb21ac9c25 (patch) | |
| tree | b0991218e9cac8f76224df017856045c71d779e4 /compiler/utils/State.hs | |
| parent | 8754002973dcde8709458044e541ddc8f4fcf6bb (diff) | |
| download | haskell-wip/derive-functor.tar.gz | |
Use DeriveFunctor throughout the codebase (#15654)wip/derive-functor
Diffstat (limited to 'compiler/utils/State.hs')
| -rw-r--r-- | compiler/utils/State.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/utils/State.hs b/compiler/utils/State.hs index 11bd7686d7..92269e91e7 100644 --- a/compiler/utils/State.hs +++ b/compiler/utils/State.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE UnboxedTuples #-} module State where @@ -5,10 +6,7 @@ module State where import GhcPrelude newtype State s a = State { runState' :: s -> (# a, s #) } - -instance Functor (State s) where - fmap f m = State $ \s -> case runState' m s of - (# r, s' #) -> (# f r, s' #) + deriving (Functor) instance Applicative (State s) where pure x = State $ \s -> (# x, s #) |