{-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE CPP #-} module Main where #if __GLASGOW_HASKELL__ >= 802 import GHC.TypeLits import Html.Type.Internal import Data.Proxy main :: IO () main = pure () where _x_ = undefined :: Test type Test = ( ToList () == Empty , ToList Int == Split , ToList (Proxy "a") == 'FingerTree '[] "a" , ToList ('A > Char) == 'FingerTree '[""] "" , ToList ('A > Char # 'Div > Int) == 'FingerTree '["", "