[Haskell] Non-terminating compilation of non-positive construction.