[Haskell-cafe] Type-level case