testsuite/tests/codeGen/should_run/T20640a.hs


1
2
3
4
5
6
7
8
9

import GHC.Foreign
import GHC.IO.Encoding
import qualified Foreign.C.String as F

main = withCStringLen utf8 "\x1F424" $ \csl -> do
  s <- F.peekCAStringLen csl
  print s
  s <- peekCStringLen utf8 csl
  print s