blob: 2643c78252ebfb3944aea8e4700dd87f3e5704e1 (
plain)
1
2
3
4
5
6
7
8
|
{-# LANGUAGE LinearTypes #-}
{-# LANGUAGE OverloadedLists #-}
module LinearSequenceExpr where
f :: Char %1 -> Char %1 -> [Char]
f x y = [x .. y]
-- This ought to fail, because `fromList` in base, is unrestricted
|