masaedw/PuddingX — pull request #10 by swtw7466 (2013-03-01 13:10:59+00:00)
Title: Etc

気ままに書き換えました系。あんまり意味はないです。

こういうパズル：

compile t@(PWord w) = either id (($ t) . (updateTokens .)) =<< lookupCt w

もやってみましたけどさすがにやりすぎかなと思ってコミットしてません。
書いた自分も読めない。

あと cthen ももうちょっと綺麗にならないのかなーと思って
あれこれ試してみたんですけどイマイチすっきりしないですね。
いくつか繰り返しを where にまとめるくらいが限度なんでしょうか。なんとも。