Skip to content

Commit bfa7957

Browse files
bolt12bolt12
committed
Stylish
1 parent 256ac0f commit bfa7957

File tree

5 files changed

+45
-45
lines changed

5 files changed

+45
-45
lines changed

‎io-sim/bench/Main.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
module Main (main) where
55

66
import Control.Concurrent.Class.MonadSTM
7-
import Control.Monad (replicateM, forever)
7+
import Control.Monad (forever, replicateM)
88
import Control.Monad.Class.MonadAsync
99
import Control.Monad.Class.MonadFork
1010
import Control.Monad.Class.MonadSay

‎io-sim/src/Control/Monad/IOSim/Internal.hs

Lines changed: 16 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,14 @@
1-
{-# LANGUAGE BangPatterns #-}
2-
{-# LANGUAGE CPP #-}
3-
{-# LANGUAGE DerivingVia #-}
4-
{-# LANGUAGE ExistentialQuantification #-}
5-
{-# LANGUAGE FlexibleInstances #-}
6-
{-# LANGUAGE GADTSyntax #-}
7-
{-# LANGUAGE MultiParamTypeClasses #-}
8-
{-# LANGUAGE NamedFieldPuns #-}
9-
{-# LANGUAGE RankNTypes #-}
10-
{-# LANGUAGE ScopedTypeVariables #-}
11-
{-# LANGUAGE TypeFamilies #-}
1+
{-# LANGUAGE BangPatterns #-}
2+
{-# LANGUAGE CPP #-}
3+
{-# LANGUAGE DerivingVia #-}
4+
{-# LANGUAGE ExistentialQuantification #-}
5+
{-# LANGUAGE FlexibleInstances #-}
6+
{-# LANGUAGE GADTSyntax #-}
7+
{-# LANGUAGE MultiParamTypeClasses #-}
8+
{-# LANGUAGE NamedFieldPuns #-}
9+
{-# LANGUAGE RankNTypes #-}
10+
{-# LANGUAGE ScopedTypeVariables #-}
11+
{-# LANGUAGE TypeFamilies #-}
1212

1313
{-# OPTIONS_GHC -Wno-orphans #-}
1414
-- incomplete uni patterns in 'schedule' (when interpreting 'StmTxCommitted')
@@ -49,9 +49,7 @@ module Control.Monad.IOSim.Internal
4949
import Prelude hiding (read)
5050

5151
import Data.Dynamic
52-
import Data.Foldable (toList, traverse_, foldlM)
53-
import Deque.Strict (Deque)
54-
import qualified Deque.Strict as Deque
52+
import Data.Foldable (foldlM, toList, traverse_)
5553
import qualified Data.List as List
5654
import qualified Data.List.Trace as Trace
5755
import Data.Map.Strict (Map)
@@ -62,12 +60,14 @@ import qualified Data.OrdPSQ as PSQ
6260
import Data.Set (Set)
6361
import qualified Data.Set as Set
6462
import Data.Time (UTCTime (..), fromGregorian)
63+
import Deque.Strict (Deque)
64+
import qualified Deque.Strict as Deque
6565

6666
import GHC.Exts (fromList)
6767
import GHC.Conc (ThreadStatus(..), BlockReason(..))
6868

69-
import Control.Exception
70-
(NonTermination (..), assert, throw, AsyncException (..))
69+
import Control.Exception (AsyncException (..), NonTermination (..),
70+
assert, throw)
7171
import Control.Monad (join, when)
7272
import Control.Monad.ST.Lazy
7373
import Control.Monad.ST.Lazy.Unsafe (unsafeIOToST, unsafeInterleaveST)

‎io-sim/src/Control/Monad/IOSim/InternalTypes.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,9 +10,9 @@ module Control.Monad.IOSim.InternalTypes
1010
, IsLocked (..)
1111
) where
1212

13-
import Data.STRef.Lazy (STRef)
1413
import Control.Exception (Exception)
1514
import Control.Monad.Class.MonadThrow (MaskingState (..))
15+
import Data.STRef.Lazy (STRef)
1616

1717
import Control.Monad.IOSim.Types (SimA, ThreadId, TimeoutId)
1818

‎io-sim/src/Control/Monad/IOSim/Types.hs

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,14 @@
1-
{-# LANGUAGE CPP #-}
2-
{-# LANGUAGE DeriveGeneric #-}
3-
{-# LANGUAGE DerivingVia #-}
4-
{-# LANGUAGE ExistentialQuantification #-}
5-
{-# LANGUAGE FlexibleInstances #-}
6-
{-# LANGUAGE GADTSyntax #-}
7-
{-# LANGUAGE MultiParamTypeClasses #-}
8-
{-# LANGUAGE NamedFieldPuns #-}
9-
{-# LANGUAGE PatternSynonyms #-}
10-
{-# LANGUAGE RankNTypes #-}
11-
{-# LANGUAGE TypeFamilies #-}
1+
{-# LANGUAGE CPP #-}
2+
{-# LANGUAGE DeriveGeneric #-}
3+
{-# LANGUAGE DerivingVia #-}
4+
{-# LANGUAGE ExistentialQuantification #-}
5+
{-# LANGUAGE FlexibleInstances #-}
6+
{-# LANGUAGE GADTSyntax #-}
7+
{-# LANGUAGE MultiParamTypeClasses #-}
8+
{-# LANGUAGE NamedFieldPuns #-}
9+
{-# LANGUAGE PatternSynonyms #-}
10+
{-# LANGUAGE RankNTypes #-}
11+
{-# LANGUAGE TypeFamilies #-}
1212

1313
{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
1414
{-# OPTIONS_GHC -Wno-partial-fields #-}

‎io-sim/src/Control/Monad/IOSimPOR/Internal.hs

Lines changed: 16 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,15 @@
1-
{-# LANGUAGE BangPatterns #-}
2-
{-# LANGUAGE CPP #-}
3-
{-# LANGUAGE DerivingVia #-}
4-
{-# LANGUAGE ExistentialQuantification #-}
5-
{-# LANGUAGE FlexibleContexts #-}
6-
{-# LANGUAGE FlexibleInstances #-}
7-
{-# LANGUAGE GADTSyntax #-}
8-
{-# LANGUAGE MultiParamTypeClasses #-}
9-
{-# LANGUAGE NamedFieldPuns #-}
10-
{-# LANGUAGE RankNTypes #-}
11-
{-# LANGUAGE ScopedTypeVariables #-}
12-
{-# LANGUAGE TypeFamilies #-}
1+
{-# LANGUAGE BangPatterns #-}
2+
{-# LANGUAGE CPP #-}
3+
{-# LANGUAGE DerivingVia #-}
4+
{-# LANGUAGE ExistentialQuantification #-}
5+
{-# LANGUAGE FlexibleContexts #-}
6+
{-# LANGUAGE FlexibleInstances #-}
7+
{-# LANGUAGE GADTSyntax #-}
8+
{-# LANGUAGE MultiParamTypeClasses #-}
9+
{-# LANGUAGE NamedFieldPuns #-}
10+
{-# LANGUAGE RankNTypes #-}
11+
{-# LANGUAGE ScopedTypeVariables #-}
12+
{-# LANGUAGE TypeFamilies #-}
1313

1414
{-# OPTIONS_GHC -Wno-orphans #-}
1515
-- incomplete uni patterns in 'schedule' (when interpreting 'StmTxCommitted')
@@ -50,7 +50,7 @@ module Control.Monad.IOSimPOR.Internal
5050
import Prelude hiding (read)
5151

5252
import Data.Dynamic
53-
import Data.Foldable (traverse_, foldlM)
53+
import Data.Foldable (foldlM, traverse_)
5454
import qualified Data.List as List
5555
import qualified Data.List.Trace as Trace
5656
import Data.Map.Strict (Map)
@@ -63,9 +63,9 @@ import Data.Set (Set)
6363
import qualified Data.Set as Set
6464
import Data.Time (UTCTime (..), fromGregorian)
6565

66-
import Control.Exception
67-
(NonTermination (..), assert, throw, AsyncException (..))
68-
import Control.Monad ( join, when )
66+
import Control.Exception (AsyncException (..), NonTermination (..),
67+
assert, throw)
68+
import Control.Monad (join, when)
6969
import Control.Monad.ST.Lazy
7070
import Control.Monad.ST.Lazy.Unsafe (unsafeIOToST, unsafeInterleaveST)
7171
import Data.STRef.Lazy

0 commit comments

Comments
 (0)