Work around infinite loop in GHC

http://hackage.haskell.org/trac/ghc/ticket/7944