whitespace formatting

1 files changed, 29 insertions, 29 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 864bf96..09da6b6 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -1,30 +1,30 @@
+{-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE FlexibleContexts #-}
 
-import AlsaSeq
-import qualified Sound.ALSA.Exception as AlsaExc
-import qualified Data.Set as Set
-import qualified Sound.ALSA.Sequencer.Event as Event
-import Control.Monad.RWS.Strict
-import Data.Maybe
-import Data.List
-import System.Clock
+import           AlsaSeq
+import           Control.Monad.RWS.Strict
+import           Data.List
+import           Data.Maybe
+import qualified Data.Set                       as Set
+import qualified Sound.ALSA.Exception           as AlsaExc
+import qualified Sound.ALSA.Sequencer.Event     as Event
+import           System.Clock
 
 import           Control.Applicative
-import qualified Data.ByteString as BS
+import qualified Data.ByteString                as BS
+import           Data.ByteString.Char8          (pack)
+import           Data.Int
 import           Database.SQLite.Simple
 import           Database.SQLite.Simple.FromRow ()
-import Data.Int
-import Data.ByteString.Char8 (pack)
 
-import Control.Concurrent.Chan
-import Prelude hiding ((.), id)
-import BasePrelude hiding (loop)
+import           BasePrelude                    hiding (loop)
+import           Control.Concurrent.Chan
+import           Prelude                        hiding (id, (.))
 
+import qualified Sound.ALSA.Sequencer
 import qualified Sound.ALSA.Sequencer.Address
 import qualified Sound.ALSA.Sequencer.Port
 import qualified Sound.ALSA.Sequencer.Queue
-import qualified Sound.ALSA.Sequencer
 
 
 verbose = False
@@ -43,24 +43,24 @@ getTS (MidiEvent ts _) = ts
 getTS (Silence ts) = ts
 
 data LoopState = LoopState {
-  keysDown :: MidiPitchSet,
+  keysDown     :: MidiPitchSet,
   inputHistory :: [EVENT],
-  lastTick :: TimeSpec
+  lastTick     :: TimeSpec
 }
 
 data LoopEnv = LoopEnv {
-  _saver :: Chan (Int64, Int64, [EVENT]),
-  _sqlite :: Connection,
-  _startTime :: TimeSpec,
+  _saver         :: Chan (Int64, Int64, [EVENT]),
+  _sqlite        :: Connection,
+  _startTime     :: TimeSpec,
   _startTimeReal :: TimeSpec,
-  _h :: Sound.ALSA.Sequencer.T Sound.ALSA.Sequencer.DuplexMode,
-  _public :: Sound.ALSA.Sequencer.Port.T,
-  _private :: Sound.ALSA.Sequencer.Port.T,
-  _q :: Sound.ALSA.Sequencer.Queue.T,
-  _publicAddr :: Sound.ALSA.Sequencer.Address.T,
-  _privateAddr :: Sound.ALSA.Sequencer.Address.T,
-  _doSave :: Bool,
-  _lineReader :: MVar String
+  _h             :: Sound.ALSA.Sequencer.T Sound.ALSA.Sequencer.DuplexMode,
+  _public        :: Sound.ALSA.Sequencer.Port.T,
+  _private       :: Sound.ALSA.Sequencer.Port.T,
+  _q             :: Sound.ALSA.Sequencer.Queue.T,
+  _publicAddr    :: Sound.ALSA.Sequencer.Address.T,
+  _privateAddr   :: Sound.ALSA.Sequencer.Address.T,
+  _doSave        :: Bool,
+  _lineReader    :: MVar String
 }
 
 getAbsTime = do