Commits

Bryan O'Sullivan committed 1ee26c4

Write a Target instance for String

Comments (0)

Files changed (1)

tests/Properties.hs

-{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE FlexibleInstances, TypeSynonymInstances #-}
 {-# OPTIONS_GHC -fno-enable-rewrite-rules #-}
 
 import Test.QuickCheck
     packTChunkSize :: Int -> String -> t
     packTChunkSize _ = packT
 
+instance Target String where
+    packT    = id
+    unpackT  = id
+    splitAtT = splitAt
+
 instance Target (S.Stream Char) where
     packT        = S.streamList
     unpackT      = S.unstreamList