小1時間悩んだバグ。

1バイトを8つのビットに変換するコードを、

(w `testBit`) <$> [0 .. 7]と書くべきところを(w `testBit`) <$> [0 .. 8]って書いてた。