code cleanup, prepare release (#24)

* cleanup: add newFunction

* cleanup: export newFunction

* chore: use v1.2.1.0

* doc: use newFunction

* doc: update changelog

Author: zshipko

Diff for: CHANGELOG.md

@@ -1,5 +1,9 @@
 # Revision history for extism
 
+## 1.2.1.0 -- 2024-04-22
+
+* Added `newFunction`
+
 ## 1.0.0.0 -- 2024-01-08
 
 * Extism 1.0 compatible release

Diff for: Example.hs

@@ -18,7 +18,7 @@ hello currPlugin msg = do
 main = do
   setLogFile "stdout" LogError
   let m = manifest [wasmFile "wasm/code-functions.wasm"]
-  f <- hostFunction "hello_world" [ptr] [ptr] hello "Hello, again"
+  f <- newFunction "hello_world" [ptr] [ptr] "Hello, again" hello
   plugin <- unwrap <$> newPlugin m [f] True
   id <- pluginID plugin
   print id

Diff for: README.md

@@ -118,7 +118,7 @@ hello currPlugin msg = do
 
 main = do
   setLogFile "stdout" LogError
-  f <- hostFunction "hello_world" [ptr] [ptr] hello "Hello, again"
+  f <- newFunction "hello_world" [ptr] [ptr] "Hello, again" hello
   plugin <- unwrap <$> newPlugin m [f] True
   id <- pluginID plugin
   print id

Diff for: extism.cabal

@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               extism
-version:            1.2.0.4
+version:            1.2.1.0
 license:            BSD-3-Clause
 maintainer:         [email protected]
 author:             Extism authors

Diff for: manifest/extism-manifest.cabal

@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               extism-manifest
-version:            1.2.0.4
+version:            1.2.1.0
 license:            BSD-3-Clause
 maintainer:         [email protected]
 author:             Extism authors

Diff for: src/Extism/HostFunction.hs

@@ -29,6 +29,8 @@ module Extism.HostFunction
     fromF64,
     hostFunction,
     hostFunction',
+    newFunction,
+    newFunction',
     input,
     output,
     getParams,
@@ -233,3 +235,13 @@ hostFunction = hostFunctionWithNamespace' Nothing
 -- | 'Function' in the provided namespace that can be called from a 'Plugin'
 hostFunction' :: String -> String -> [ValType] -> [ValType] -> (CurrentPlugin -> a -> IO ()) -> a -> IO Function
 hostFunction' ns = hostFunctionWithNamespace' (Just ns)
+
+-- | 'newFunction "function_name" inputTypes outputTypes callback userData' creates a new
+-- | 'Function' in the default namespace that can be called from a 'Plugin'
+newFunction :: String -> [ValType] -> [ValType] -> a -> (CurrentPlugin -> a -> IO ()) -> IO Function
+newFunction name params results x f = hostFunctionWithNamespace' Nothing name params results f x
+
+-- | 'newFunction' "namespace" "function_name" inputTypes outputTypes callback userData' creates a new
+-- | 'Function' in the provided namespace that can be called from a 'Plugin'
+newFunction' :: String -> String -> [ValType] -> [ValType] -> a -> (CurrentPlugin -> a -> IO ()) -> IO Function
+newFunction' ns name params results x f = hostFunctionWithNamespace' (Just ns) name params results f x