testsuite/tests/th/Lift_ByteArray.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE TemplateHaskell #-}
module Main where

import Data.Array.Byte
import Language.Haskell.TH.Syntax


main = print $(
    let liftBA :: ByteArray -> Q Exp
        liftBA = lift
    in liftBA [0..128])