dunai: Wrap lines at 80 columns (KSG Haskell 1.3.0 - 4.3). Refs #285.

We set the code limit for Haskell ﬁles at 80 characters. A "character" means any Unicode code point. Any line that would exceed this limit should be line-wrapped.
ivanperez-keera · Jun 3, 2022 · 1866e54 · 1866e54
1 parent 090ab1b
commit 1866e54
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/dunai/src/Control/Monad/Trans/MSF/State.hs b/dunai/src/Control/Monad/Trans/MSF/State.hs
@@ -54,9 +54,13 @@ runStateS = morphGS $ \f (s, a) -> (\((b, c), s') -> ((s', b), c))
 -- | Build an 'MSF' /function/ that takes a fixed state as additional input,
 -- from an 'MSF' in the 'State' monad, and outputs the new state with every
 -- transformation step.
-runStateS_ :: (Functor m, Monad m) => MSF (StateT s m) a b -> s -> MSF m a (s, b)
-runStateS_ msf s = feedback s
-                 $ arr swap >>> runStateS msf >>> arr (\(s', b) -> ((s', b), s'))
+runStateS_ :: (Functor m, Monad m)
+           => MSF (StateT s m) a b
+           -> s
+           -> MSF m a (s, b)
+runStateS_ msf s =
+  feedback s $
+    arr swap >>> runStateS msf >>> arr (\(s', b) -> ((s', b), s'))
 
 -- TODO Rename this to execStateS!
 -- | Build an 'MSF' /function/ that takes a fixed state as additional