hunk ./alsa-seq.cabal 2
-Version:        0.6.0.1
+Version:        0.6.0.2
hunk ./src/Sound/ALSA/Sequencer/Marshal/Address.hsc 31
-  sizeOf _    = #{size snd_seq_real_time_t}
-  alignment _ = #{alignment snd_seq_real_time_t}
+  sizeOf _    = #{size snd_seq_addr_t}
+  alignment _ = #{alignment snd_seq_addr_t}
addfile ./Makefile
hunk ./Makefile 1
+ghci:
+	ghci -i:dist/build:src -XGeneralizedNewtypeDeriving -XEmptyDataDecls \
+	   Sound.ALSA.Sequencer.Event.RemoveMonad
+
+%.ltrace:	%
+	ltrace -F ltrace/seq.config \
+	   --library=/usr/lib/x86_64-linux-gnu/libasound.so.2 \
+	   $< 2>$@
+
+%:	%.c
+	gcc -Wall -o $@ $< `pkg-config --libs alsa`
hunk ./src/Sound/ALSA/Sequencer/Marshal/Event.hsc 398
-  , (#{const SND_SEQ_EVENT_SETPOS_TICK}, peekQueueExt QueueSetPosTick #{peek snd_seq_ev_queue_control_t, param.time.tick})
+  , (#{const SND_SEQ_EVENT_SETPOS_TICK}, peekQueueExt QueueSetPosTick #{peekintfield snd_seq_ev_queue_control_t, param.time.tick})
hunk ./src/Sound/ALSA/Sequencer/Marshal/Template.h 33
+#define hsc_peekintfield(t, f) \
+    printf ("(\\hsc_ptr -> peekByteOff hsc_ptr %ld :: IO ", \
+            (long) offsetof (t, f)); \
+    hsc_intfieldtype(t,f); \
+    printf (")");
+
+#define hsc_pokeintfield(t, f) \
+    printf ("(\\hsc_ptr -> pokeByteOff hsc_ptr %ld :: ", \
+            (long) offsetof (t, f)); \
+    hsc_intfieldtype(t,f); \
+    printf (" -> IO ())");
+
hunk ./src/Sound/ALSA/Sequencer/Marshal/Event.hsc 660
-  len <- #{peek snd_seq_ev_ext_t, len} p
+  len <- #{peekintfield snd_seq_ev_ext_t, len} p
hunk ./src/Sound/ALSA/Sequencer/Marshal/Event.hsc 662
-  fmap (ExtEv e) $ B.packCStringLen (ptr,len)
+  fmap (ExtEv e) $ B.packCStringLen (ptr, fromIntegral len)
hunk ./src/Sound/ALSA/Sequencer/Event.hs 175
-  snd_seq_event_input_pending :: Ptr Seq.Core -> Int -> IO C.CInt
+  snd_seq_event_input_pending :: Ptr Seq.Core -> C.CInt -> IO C.CInt
hunk ./alsa-seq.cabal 2
-Version:        0.6.0.2
+Version:        0.6.0.3
hunk ./alsa-seq.cabal 33
+Source-Repository this
+  tag:      0.6.0.3
+  type:     darcs
+  location: http://code.haskell.org/alsa/seq/
+