path: root/testsuite/tests/warnings/should_compile/T18402.hs

module T18402 where

a = ['b'      .. 'a'] -- empty
b = ['b', 'a' .. 'c'] -- empty
c = ['b', 'c' .. 'a'] -- empty
d = ['a'      .. 'c'] -- not empty
e = ['a', 'c' .. 'b'] -- not empty