Re-format files w/ stylish-haskell

Master.hs

@@ -3,40 +3,21 @@
 --
 module Master () where
 
-import Control.Distributed.Process
-  ( Process
-  , ProcessId
-  , receiveWait
-  , match
-  )
-import qualified Sequential as Sq
-  ( orbit
-  )
-import Credit
-  ( is_one
-  , credit
-  )
-import Table
-  ( sum_freqs
-  , freq_from_stat
-  , freq_to_stat
-  )
-import Worker
-  ( verts_recvd_from_stat
-  , credit_retd_from_stat
-  , min_atomic_credit_from_stat
-  , init_idle_from_stat
-  , max_idle_from_stat
-  , tail_idle_from_stat
-  )
-import Types
- ( Generator
- , HostInfo(..)
- , MaybeHosts(..)
- , ParConf
- , Stats
- , Vertex
- )
+import           Control.Distributed.Process (Process, ProcessId, match,
+                                              receiveWait)
+import           Credit                      (credit, is_one)
+import qualified Sequential                  as Sq (orbit)
+import           Table                       (freq_from_stat, freq_to_stat,
+                                              sum_freqs)
+import           Types                       (Generator, HostInfo (..),
+                                              MaybeHosts (..), ParConf, Stats,
+                                              Vertex)
+import           Worker                      (credit_retd_from_stat,
+                                              init_idle_from_stat,
+                                              max_idle_from_stat,
+                                              min_atomic_credit_from_stat,
+                                              tail_idle_from_stat,
+                                              verts_recvd_from_stat)
 
 -- DATA
 --   Static Machine Configuration:

Sequential.hs

@@ -4,34 +4,12 @@
 module Sequential(Generator
                 , orbit) where
 
-import Data.Hashable
-  ( hash
-  )
-import Data.Dequeue
-  ( BankersDequeue
-  , fromList
-  , popFront
-  , pushBack
-  )
-import Table
-  ( get_freq
-  , freq_to_stat
-  , is_member
-  , insert
-  , new
-  , to_list
-  )
-import Worker
-  ( now
-  )
-import Types
-  ( Generator
-  , Freq
-  , SeqConf
-  , Stats
-  , Vertex
-  , VTable
-  )
+import           Data.Dequeue  (BankersDequeue, fromList, popFront, pushBack)
+import           Data.Hashable (hash)
+import           Table         (freq_to_stat, get_freq, insert, is_member, new,
+                                to_list)
+import           Types         (Freq, Generator, SeqConf, Stats, VTable, Vertex)
+import           Worker        (now)
 
 -- DATA
 --   Static Machine Configuration:

Table.hs

@@ -22,19 +22,8 @@ module Table( Freq
             , freq_from_stat
             , fill_deg) where
 
-import Data.Array
-  (Array
-  , elems
-  , listArray
-  , (!)
-  , (//)
-  )
-import Types
-  ( Freq
-  , Stats
-  , Vertex
-  , VTable
-  )
+import           Data.Array (Array, elems, listArray, (!), (//))
+import           Types      (Freq, Stats, VTable, Vertex)
 
 -- Note: Hash tables have a fixed number of slots but each slot can store
 -- a list of vertices. The functions is_member/3 and insert/3

Types.hs

@@ -12,13 +12,8 @@ module Types ( Ct(..)
              , Vertex
              , VTable) where
 
-import Data.Array
-  ( Array
-  )
-import Control.Distributed.Process
-  ( NodeId
-  , ProcessId
-  )
+import           Control.Distributed.Process (NodeId, ProcessId)
+import           Data.Array                  (Array)
 
 type Freq   = [Int]
 type Vertex = Int

Worker.hs

 --
--- orbit-int workeraux 
+-- orbit-int worker
 --
 module Worker ( defaultCt
               , now
@@ -12,17 +12,9 @@ module Worker ( defaultCt
               , max_idle_from_stat
               ) where
 
-import Control.Distributed.Process
-  ( NodeId
-  )
-import Types
-  ( Ct(..)
-  , Freq
-  , Stats
-  )
-import Table
-  ( freq_to_stat
-  )
+import           Control.Distributed.Process (NodeId)
+import           Table                       (freq_to_stat)
+import           Types                       (Ct (..), Freq, Stats)
 
 defaultCt = Ct {
   verts_recvd = 0