testsuite/tests/deSugar/should_run/T18172.hs


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

{-# LANGUAGE TypeFamilies #-}
module T18172 where

import Data.Word
import GHC.Exts

data Wombat = Wombat [Word8]
    deriving Show

instance IsList Wombat where
    type Item Wombat = Word8
    fromList xs = Wombat xs
    toList (Wombat xs)= xs