Re-format exports

Credit.hs

@@ -8,7 +8,8 @@ module Credit( credit
              , zero
              , one
              , is_zero
-             , is_one) where
+             , is_one
+             ) where
 
 -- An *atomic credit* is represented as a non-negative integer k;
 -- it stands for the credit 1/{2^k}.

Master.hs

 --
 -- orbit-int master (controlling orbit computation)
 --
-module Master () where
+module Master where
 
 import           Control.Distributed.Process (Process, ProcessId, match,
                                               receiveWait)

Sequential.hs

 --
 -- orbit-int sequential implementation
 --
-module Sequential(Generator
-                , orbit) where
+module Sequential( Generator
+                 , orbit
+                 ) where
 
 import           Data.Dequeue  (BankersDequeue, fromList, popFront, pushBack)
 import           Data.Hashable (hash)

Table.hs

@@ -20,7 +20,8 @@ module Table( Freq
             , avg_nonempty_freq
             , freq_to_stat
             , freq_from_stat
-            , fill_deg) where
+            , fill_deg
+            ) where
 
 import           Data.Array (Array, elems, listArray, (!), (//))
 import           Types      (Freq, Stats, VTable, Vertex)

Types.hs

 --
 -- orbit-int types
 --
-module Types ( Ct(..)
+module Types( Ct(..)
             , Generator
             , Freq
             , HostInfo(..)

Worker.hs

 --
 -- orbit-int worker
 --
-module Worker ( defaultCt
+module Worker( defaultCt
              , now
              , worker_stats
              , verts_recvd_from_stat
@@ -16,15 +16,15 @@ import           Control.Distributed.Process (NodeId)
 import           Table                       (freq_to_stat)
 import           Types                       (Ct (..), Freq, Stats)
 
-defaultCt = Ct {
-  verts_recvd = 0
-, credit_retd = 0
-, min_atomic_credit = 0
-, last_event = now
-, init_idle = -1
-, tail_idle = -1
-, max_idle = -1
-}
+defaultCt :: Ct
+defaultCt = Ct { verts_recvd = 0
+               , credit_retd = 0
+               , min_atomic_credit = 0
+               , last_event = now
+               , init_idle = -1
+               , tail_idle = -1
+               , max_idle = -1
+               }
 
 -- current wall clock time (in milliseconds since start of RTS)
 -- FIXME get current wall clock time