Add haskell binding (#63)

haskell/Ruapu.hs

@@ -0,0 +1,21 @@
+{-# Language ForeignFunctionInterface #-}
+
+module Ruapu where
+
+import Foreign
+import Foreign.C.String (CString, newCAString, peekCAString)
+
+foreign import ccall "ruapu.c ruapu_init"
+    init :: IO ()
+
+foreign import ccall "ruapu.c ruapu_supports"
+    cSupports :: CString -> IO Bool
+
+foreign import ccall "ruapu.c ruapu_rua"
+    cRua :: IO (Ptr CString)
+
+supports :: String -> IO Bool
+supports xs = (newCAString xs) >>= cSupports
+
+rua :: IO [String]
+rua = cRua >>= peekArray0 nullPtr >>= mapM peekCAString

haskell/ruapu.c

@@ -0,0 +1,2 @@
+#define RUAPU_IMPLEMENTATION
+#include"ruapu.h"