「ふつける」のexpandPattern，わかんなくなった

Haskell

「ふつける」でソースは省略されているexpandPatternを，ちょっと前に練習がてら自前で実装したんですが。。。今見るとまるで分からない(-_-;;。だめだめ。parsecは忘れてるわ，そもそも自分が作った中間処理の関数が何をしてるのかが不明．コメントは冗長すぎてもしっかり書かないといけないのを，もう何度目かの再確認をしたわけでした。。。