Ticket #5752: b.hs

File b.hs, 207 bytes (added by srl, 2 years ago)

Code that triggers <loop> in ghc.

Line 
1{-# LANGUAGE TemplateHaskell #-}
2
3module Main where
4
5import Language.Haskell.TH
6
7main = undefined
8
9x = 3
10
11data A = A $( return . (\ts -> foldl AppT (TupleT (length ts)) ts) . replicate x =<< [t| Double |] )