Skip to content

Commit b7b8623

Browse files
cootcoot
committed
io-classes:io-classes-mtl - stylish-haskell
1 parent 601938c commit b7b8623

File tree

10 files changed

+108
-109
lines changed

10 files changed

+108
-109
lines changed

‎io-classes/mtl/Control/Monad/Class/MonadEventlog/Trans.hs

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -2,17 +2,17 @@
22

33
module Control.Monad.Class.MonadEventlog.Trans () where
44

5-
import Control.Monad.Cont (ContT)
6-
import Control.Monad.Except (ExceptT)
7-
import qualified Control.Monad.RWS.Lazy as Lazy
8-
import qualified Control.Monad.RWS.Strict as Strict
9-
import qualified Control.Monad.State.Lazy as Lazy
10-
import qualified Control.Monad.State.Strict as Strict
11-
import Control.Monad.Trans (lift)
12-
import qualified Control.Monad.Writer.Lazy as Lazy
13-
import qualified Control.Monad.Writer.Strict as Strict
14-
15-
import Control.Monad.Class.MonadEventlog
5+
import Control.Monad.Cont (ContT)
6+
import Control.Monad.Except (ExceptT)
7+
import Control.Monad.RWS.Lazy qualified as Lazy
8+
import Control.Monad.RWS.Strict qualified as Strict
9+
import Control.Monad.State.Lazy qualified as Lazy
10+
import Control.Monad.State.Strict qualified as Strict
11+
import Control.Monad.Trans (lift)
12+
import Control.Monad.Writer.Lazy qualified as Lazy
13+
import Control.Monad.Writer.Strict qualified as Strict
14+
15+
import Control.Monad.Class.MonadEventlog
1616

1717
-- | @since 0.1.0.0
1818
instance MonadEventlog m => MonadEventlog (ContT r m) where

‎io-classes/mtl/Control/Monad/Class/MonadST/Trans.hs

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -2,17 +2,17 @@
22
{-# OPTIONS_GHC -Wno-deprecations #-}
33
module Control.Monad.Class.MonadST.Trans () where
44

5-
import Control.Monad.Cont (ContT)
6-
import Control.Monad.Except (ExceptT)
7-
import qualified Control.Monad.RWS.Lazy as Lazy
8-
import qualified Control.Monad.RWS.Strict as Strict
9-
import qualified Control.Monad.State.Lazy as Lazy
10-
import qualified Control.Monad.State.Strict as Strict
11-
import Control.Monad.Trans (lift)
12-
import qualified Control.Monad.Writer.Lazy as Lazy
13-
import qualified Control.Monad.Writer.Strict as Strict
5+
import Control.Monad.Cont (ContT)
6+
import Control.Monad.Except (ExceptT)
7+
import Control.Monad.RWS.Lazy qualified as Lazy
8+
import Control.Monad.RWS.Strict qualified as Strict
9+
import Control.Monad.State.Lazy qualified as Lazy
10+
import Control.Monad.State.Strict qualified as Strict
11+
import Control.Monad.Trans (lift)
12+
import Control.Monad.Writer.Lazy qualified as Lazy
13+
import Control.Monad.Writer.Strict qualified as Strict
1414

15-
import Control.Monad.Class.MonadST
15+
import Control.Monad.Class.MonadST
1616

1717

1818
instance MonadST m => MonadST (ContT r m) where
@@ -41,7 +41,7 @@ instance MonadST m => MonadST (Strict.StateT s m) where
4141

4242
instance (Monoid w, MonadST m) => MonadST (Lazy.WriterT w m) where
4343
stToIO = lift . stToIO
44-
withLiftST f = withLiftST $ \g -> f (lift . g)
44+
withLiftST f = withLiftST $ \g -> f (lift . g)
4545

4646
instance (Monoid w, MonadST m) => MonadST (Strict.WriterT w m) where
4747
stToIO = lift . stToIO

‎io-classes/mtl/Control/Monad/Class/MonadSTM/Trans.hs

Lines changed: 18 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -13,25 +13,24 @@
1313
{-# LANGUAGE UndecidableInstances #-}
1414
{-# OPTIONS_GHC -Wno-orphans #-}
1515

16-
module Control.Monad.Class.MonadSTM.Trans
17-
( ContTSTM (..)) where
18-
19-
import Control.Monad.Cont (ContT (..))
20-
import Control.Monad.Except (ExceptT (..), runExceptT)
21-
import Control.Monad.Trans (lift)
22-
import qualified Control.Monad.RWS.Lazy as Lazy
23-
import qualified Control.Monad.RWS.Strict as Strict
24-
import qualified Control.Monad.State.Lazy as Lazy
25-
import qualified Control.Monad.State.Strict as Strict
26-
import qualified Control.Monad.Writer.Lazy as Lazy
27-
import qualified Control.Monad.Writer.Strict as Strict
28-
29-
import qualified Control.Monad.Class.MonadThrow as MonadThrow
30-
import Control.Monad.Class.MonadSTM.Internal
31-
32-
import Data.Array.Base (MArray (..))
33-
import Data.Function (on)
34-
import Data.Kind (Type)
16+
module Control.Monad.Class.MonadSTM.Trans (ContTSTM (..)) where
17+
18+
import Control.Monad.Cont (ContT (..))
19+
import Control.Monad.Except (ExceptT (..), runExceptT)
20+
import Control.Monad.RWS.Lazy qualified as Lazy
21+
import Control.Monad.RWS.Strict qualified as Strict
22+
import Control.Monad.State.Lazy qualified as Lazy
23+
import Control.Monad.State.Strict qualified as Strict
24+
import Control.Monad.Trans (lift)
25+
import Control.Monad.Writer.Lazy qualified as Lazy
26+
import Control.Monad.Writer.Strict qualified as Strict
27+
28+
import Control.Monad.Class.MonadSTM.Internal
29+
import Control.Monad.Class.MonadThrow qualified as MonadThrow
30+
31+
import Data.Array.Base (MArray (..))
32+
import Data.Function (on)
33+
import Data.Kind (Type)
3534

3635

3736
-- | A newtype wrapper for an 'STM' monad for 'ContT'

‎io-classes/mtl/Control/Monad/Class/MonadSay/Trans.hs

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,13 @@
11
{-# OPTIONS_GHC -Wno-orphans #-}
22
module Control.Monad.Class.MonadSay.Trans () where
33

4-
import Control.Monad.Cont
5-
import Control.Monad.Except
6-
import Control.Monad.RWS
7-
import Control.Monad.State
8-
import Control.Monad.Writer
4+
import Control.Monad.Cont
5+
import Control.Monad.Except
6+
import Control.Monad.RWS
7+
import Control.Monad.State
8+
import Control.Monad.Writer
99

10-
import Control.Monad.Class.MonadSay
10+
import Control.Monad.Class.MonadSay
1111

1212
-- | @since 0.1.0.0
1313
instance MonadSay m => MonadSay (ContT r m) where

‎io-classes/mtl/Control/Monad/Class/MonadThrow/Trans.hs

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -1,18 +1,18 @@
1-
{-# LANGUAGE CPP #-}
2-
{-# LANGUAGE RankNTypes #-}
1+
{-# LANGUAGE CPP #-}
2+
{-# LANGUAGE RankNTypes #-}
33
{-# OPTIONS_GHC -Wno-orphans #-}
44
module Control.Monad.Class.MonadThrow.Trans () where
55

6-
import Control.Monad.Except (ExceptT (..), runExceptT)
7-
import qualified Control.Monad.RWS.Lazy as Lazy
8-
import qualified Control.Monad.RWS.Strict as Strict
9-
import qualified Control.Monad.State.Lazy as Lazy
10-
import qualified Control.Monad.State.Strict as Strict
11-
import Control.Monad.Trans (lift)
12-
import qualified Control.Monad.Writer.Lazy as Lazy
13-
import qualified Control.Monad.Writer.Strict as Strict
14-
15-
import Control.Monad.Class.MonadThrow
6+
import Control.Monad.Except (ExceptT (..), runExceptT)
7+
import Control.Monad.RWS.Lazy qualified as Lazy
8+
import Control.Monad.RWS.Strict qualified as Strict
9+
import Control.Monad.State.Lazy qualified as Lazy
10+
import Control.Monad.State.Strict qualified as Strict
11+
import Control.Monad.Trans (lift)
12+
import Control.Monad.Writer.Lazy qualified as Lazy
13+
import Control.Monad.Writer.Strict qualified as Strict
14+
15+
import Control.Monad.Class.MonadThrow
1616

1717
--
1818
-- ExceptT Instances
@@ -82,7 +82,7 @@ instance (Monoid w, MonadCatch m) => MonadCatch (Lazy.WriterT w m) where
8282
(\(resource, w) e ->
8383
case e of
8484
ExitCaseSuccess (b, w') ->
85-
g w' <$> Lazy.runWriterT (release resource (ExitCaseSuccess b))
85+
g w' <$> Lazy.runWriterT (release resource (ExitCaseSuccess b))
8686
ExitCaseException err ->
8787
g w <$> Lazy.runWriterT (release resource (ExitCaseException err))
8888
ExitCaseAbort ->
@@ -125,7 +125,7 @@ instance (Monoid w, MonadCatch m) => MonadCatch (Strict.WriterT w m) where
125125
(\(resource, w) e ->
126126
case e of
127127
ExitCaseSuccess (b, w') ->
128-
g w' <$> Strict.runWriterT (release resource (ExitCaseSuccess b))
128+
g w' <$> Strict.runWriterT (release resource (ExitCaseSuccess b))
129129
ExitCaseException err ->
130130
g w <$> Strict.runWriterT (release resource (ExitCaseException err))
131131
ExitCaseAbort ->

‎io-classes/mtl/Control/Monad/Class/MonadTime/SI/Trans.hs

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -2,18 +2,18 @@
22

33
module Control.Monad.Class.MonadTime.SI.Trans () where
44

5-
import Control.Monad.Cont (ContT)
6-
import Control.Monad.Except (ExceptT)
7-
import qualified Control.Monad.RWS.Lazy as Lazy
8-
import qualified Control.Monad.RWS.Strict as Strict
9-
import qualified Control.Monad.State.Lazy as Lazy
10-
import qualified Control.Monad.State.Strict as Strict
11-
import Control.Monad.Trans (lift)
12-
import qualified Control.Monad.Writer.Lazy as Lazy
13-
import qualified Control.Monad.Writer.Strict as Strict
14-
15-
import Control.Monad.Class.MonadTime.Trans ()
16-
import Control.Monad.Class.MonadTime.SI
5+
import Control.Monad.Cont (ContT)
6+
import Control.Monad.Except (ExceptT)
7+
import Control.Monad.RWS.Lazy qualified as Lazy
8+
import Control.Monad.RWS.Strict qualified as Strict
9+
import Control.Monad.State.Lazy qualified as Lazy
10+
import Control.Monad.State.Strict qualified as Strict
11+
import Control.Monad.Trans (lift)
12+
import Control.Monad.Writer.Lazy qualified as Lazy
13+
import Control.Monad.Writer.Strict qualified as Strict
14+
15+
import Control.Monad.Class.MonadTime.SI
16+
import Control.Monad.Class.MonadTime.Trans ()
1717

1818
instance MonadMonotonicTime m => MonadMonotonicTime (ExceptT e m) where
1919
getMonotonicTime = lift getMonotonicTime

‎io-classes/mtl/Control/Monad/Class/MonadTime/Trans.hs

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -2,17 +2,17 @@
22

33
module Control.Monad.Class.MonadTime.Trans () where
44

5-
import Control.Monad.Cont (ContT)
6-
import Control.Monad.Except (ExceptT)
7-
import qualified Control.Monad.RWS.Lazy as Lazy
8-
import qualified Control.Monad.RWS.Strict as Strict
9-
import qualified Control.Monad.State.Lazy as Lazy
10-
import qualified Control.Monad.State.Strict as Strict
11-
import Control.Monad.Trans (lift)
12-
import qualified Control.Monad.Writer.Lazy as Lazy
13-
import qualified Control.Monad.Writer.Strict as Strict
14-
15-
import Control.Monad.Class.MonadTime
5+
import Control.Monad.Cont (ContT)
6+
import Control.Monad.Except (ExceptT)
7+
import Control.Monad.RWS.Lazy qualified as Lazy
8+
import Control.Monad.RWS.Strict qualified as Strict
9+
import Control.Monad.State.Lazy qualified as Lazy
10+
import Control.Monad.State.Strict qualified as Strict
11+
import Control.Monad.Trans (lift)
12+
import Control.Monad.Writer.Lazy qualified as Lazy
13+
import Control.Monad.Writer.Strict qualified as Strict
14+
15+
import Control.Monad.Class.MonadTime
1616

1717
instance MonadMonotonicTimeNSec m => MonadMonotonicTimeNSec (ExceptT e m) where
1818
getMonotonicTimeNSec = lift getMonotonicTimeNSec

‎io-classes/mtl/Control/Monad/Class/MonadTimer/SI/Trans.hs

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -5,19 +5,19 @@
55

66
module Control.Monad.Class.MonadTimer.SI.Trans () where
77

8-
import Control.Monad.Cont (ContT (..))
9-
import Control.Monad.Except (ExceptT (..))
10-
import Control.Monad.RWS (RWST (..))
11-
import Control.Monad.State (StateT (..))
12-
import Control.Monad.Trans (lift)
13-
import Control.Monad.Writer (WriterT (..))
8+
import Control.Monad.Cont (ContT (..))
9+
import Control.Monad.Except (ExceptT (..))
10+
import Control.Monad.RWS (RWST (..))
11+
import Control.Monad.State (StateT (..))
12+
import Control.Monad.Trans (lift)
13+
import Control.Monad.Writer (WriterT (..))
1414

15-
import Control.Monad.Class.MonadTimer.SI
15+
import Control.Monad.Class.MonadTimer.SI
1616

17-
import Control.Monad.Class.MonadTime.SI.Trans ()
18-
import Control.Monad.Class.MonadTimer.Trans ()
17+
import Control.Monad.Class.MonadTime.SI.Trans ()
18+
import Control.Monad.Class.MonadTimer.Trans ()
1919

20-
import Data.Bifunctor (bimap)
20+
import Data.Bifunctor (bimap)
2121

2222

2323
instance MonadDelay m => MonadDelay (ContT r m) where

‎io-classes/mtl/Control/Monad/Class/MonadTimer/Trans.hs

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -5,19 +5,19 @@
55

66
module Control.Monad.Class.MonadTimer.Trans () where
77

8-
import Control.Monad.Cont (ContT (..))
9-
import Control.Monad.Except (ExceptT (..))
10-
import Control.Monad.Trans (lift)
11-
import qualified Control.Monad.RWS.Lazy as Lazy
12-
import qualified Control.Monad.RWS.Strict as Strict
13-
import qualified Control.Monad.State.Lazy as Lazy
14-
import qualified Control.Monad.State.Strict as Strict
15-
import qualified Control.Monad.Writer.Lazy as Lazy
16-
import qualified Control.Monad.Writer.Strict as Strict
17-
18-
import Control.Monad.Class.MonadTimer
19-
20-
import Control.Monad.Class.MonadSTM.Trans ()
8+
import Control.Monad.Cont (ContT (..))
9+
import Control.Monad.Except (ExceptT (..))
10+
import Control.Monad.RWS.Lazy qualified as Lazy
11+
import Control.Monad.RWS.Strict qualified as Strict
12+
import Control.Monad.State.Lazy qualified as Lazy
13+
import Control.Monad.State.Strict qualified as Strict
14+
import Control.Monad.Trans (lift)
15+
import Control.Monad.Writer.Lazy qualified as Lazy
16+
import Control.Monad.Writer.Strict qualified as Strict
17+
18+
import Control.Monad.Class.MonadTimer
19+
20+
import Control.Monad.Class.MonadSTM.Trans ()
2121

2222
instance MonadDelay m => MonadDelay (ContT r m) where
2323
threadDelay = lift . threadDelay

‎io-classes/mtl/Control/Monad/Class/Trans.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ import Control.Monad.Class.MonadSay.Trans as X ()
77
import Control.Monad.Class.MonadST.Trans as X ()
88
import Control.Monad.Class.MonadSTM.Trans as X
99
import Control.Monad.Class.MonadThrow.Trans as X ()
10-
import Control.Monad.Class.MonadTime.Trans as X ()
1110
import Control.Monad.Class.MonadTime.SI.Trans as X ()
12-
import Control.Monad.Class.MonadTimer.Trans as X ()
11+
import Control.Monad.Class.MonadTime.Trans as X ()
1312
import Control.Monad.Class.MonadTimer.SI.Trans as X ()
13+
import Control.Monad.Class.MonadTimer.Trans as X ()

0 commit comments

Comments
 (0)