{-# LANGUAGE OverloadedStrings #-} module Lib where import Foreign.C.String import Data.ByteString.Char8 (unpack, packCString, pack) import qualified Data.ByteString.Lazy.Char8 as BL8 import Data.Aeson -- CStringをAesonが解釈できるData.ByteString.Lazy.Char8に変換し、funcに渡しその結果を、CStringに戻す convertCStringViaJSON :: (BL8.ByteString -> BL8.ByteString) -> CString -> IO CString convertCStringViaJSON func cstr = do

