setmodulestring :: String -> String -> IO CInt

setmodulestring param value = do

cParam <- newCString param

cValue <- newCString value

let cParamLength = fromIntegral $ length param ::CInt

   cValueLength = fromIntegral $ length value ::CInt

   setVarInArray = (-1)::CInt 

result <- c_setmodulestring cParam cParamLength cValue cValueLength setVarInArray

return result