diff --git a/library/Potoki/Core/Transform/State.hs b/library/Potoki/Core/Transform/State.hs
--- a/library/Potoki/Core/Transform/State.hs
+++ b/library/Potoki/Core/Transform/State.hs
@@ -15,7 +15,7 @@
 the "list" transform.
 -}
 {-# INLINE runState #-}
-runState :: (input -> O.State state output) -> state -> Transform input (state, output)
+runState :: (input -> O.State state output) -> state -> Transform input (output, state)
 runState stateFn initialState =
   Transform $ \ (A.Fetch fetchIO) -> M.Acquire $ do
     stateRef <- newIORef initialState
@@ -26,15 +26,15 @@
           case O.runState (stateFn input) currentState of
             (output, newState) -> do
               writeIORef stateRef newState
-              return (Just (newState, output))
+              return (Just (output, newState))
         Nothing -> return Nothing
 
 {-# INLINE evalState #-}
 evalState :: (input -> O.State state output) -> state -> Transform input output
 evalState stateFn initialState =
-  runState stateFn initialState >>> arr snd
+  rmap fst (runState stateFn initialState)
 
 {-# INLINE execState #-}
 execState :: (input -> O.State state output) -> state -> Transform input state
 execState stateFn initialState =
-  runState stateFn initialState >>> arr fst
+  rmap snd (runState stateFn initialState)
diff --git a/potoki-core.cabal b/potoki-core.cabal
--- a/potoki-core.cabal
+++ b/potoki-core.cabal
@@ -1,7 +1,7 @@
 name:
   potoki-core
 version:
-  2.1.0.1
+  2.2
 synopsis:
   Low-level components of "potoki"
 description: