diff --git a/alsa-seq.cabal b/alsa-seq.cabal
--- a/alsa-seq.cabal
+++ b/alsa-seq.cabal
@@ -1,5 +1,5 @@
 Name:           alsa-seq
-Version:        0.6.0.6
+Version:        0.6.0.7
 Author:
   Henning Thielemann <alsa@henning-thielemann.de>,
   Dylan Simon <dylan@dylex.net>,
@@ -31,7 +31,7 @@
   location: http://code.haskell.org/alsa/seq/
 
 Source-Repository this
-  tag:      0.6.0.6
+  tag:      0.6.0.7
   type:     darcs
   location: http://code.haskell.org/alsa/seq/
 
diff --git a/src/Sound/ALSA/Sequencer/Area.h b/src/Sound/ALSA/Sequencer/Area.h
--- a/src/Sound/ALSA/Sequencer/Area.h
+++ b/src/Sound/ALSA/Sequencer/Area.h
@@ -1,8 +1,5 @@
 #include <stdio.h>
 
-#define hsc_alignment(t) \
-    printf("(%ld)", (unsigned long)offsetof(struct {char x__; t (y__); }, y__));
-
 char *area_name = NULL;
 
 #define hsc_area(y) \
diff --git a/src/Sound/ALSA/Sequencer/Subscribe/Query.hsc b/src/Sound/ALSA/Sequencer/Subscribe/Query.hsc
--- a/src/Sound/ALSA/Sequencer/Subscribe/Query.hsc
+++ b/src/Sound/ALSA/Sequencer/Subscribe/Query.hsc
@@ -120,7 +120,7 @@
 expType :: Type -> C.CInt
 expType t  = case t of
   Read  -> #{const SND_SEQ_QUERY_SUBS_READ}
-  Write	-> #{const SND_SEQ_QUERY_SUBS_WRITE}
+  Write -> #{const SND_SEQ_QUERY_SUBS_WRITE}
 
 impType :: C.CInt -> Type
 impType t  = case t of