whitespace

1 files changed, 5 insertions, 5 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 6227c31..e950653 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -36,7 +36,7 @@ main = main' `AlsaExc.catch` handler
 type RecordedEvents = [(TimeSpec, Event.T)]
 
 data Recording = Recording {
-  _recordingStart :: TimeSpec, -- from initial silence
+  _recordingStart  :: TimeSpec, -- from initial silence
   _recordingEvents :: RecordedEvents
 }
 
@@ -44,10 +44,10 @@ recordEvents :: Recording -> RecordedEvents -> Recording
 recordEvents (Recording s orig) new = Recording s (new ++ orig)
 
 data LoopState = LoopState {
-  _wantExit    :: Bool,
-  keysDown     :: MidiPitchSet,
-  _recording   :: Recording,
-  lastTick     :: TimeSpec
+  _wantExit  :: Bool,
+  keysDown   :: MidiPitchSet,
+  _recording :: Recording,
+  lastTick   :: TimeSpec
 }
 
 initializeState now = LoopState False Set.empty (emptyRecording now) now