Also add Database.Native.JSON

src/libraries/OS-Independent/Database/Native/JSON.dcl

+definition module Database.Native.JSON
+
+from Data.Maybe import :: Maybe
+from Database.Native import :: Index
+from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode
+
+derive JSONEncode Index
+derive JSONDecode Index

src/libraries/OS-Independent/Database/Native/JSON.icl

+implementation module Database.Native.JSON
+
+import Database.Native
+import Text.GenJSON
+
+JSONEncode{|Index|} _ (Index i) = [JSONInt i]
+JSONDecode{|Index|} _ [JSONInt i:l] = (Just (Index i), l)
+JSONDecode{|Index|} _ l             = (Nothing, l)

tests/linux64/test.icl

@@ -94,6 +94,7 @@ import qualified Data.Word8
 import qualified Data._Array
 import qualified Data.Generics
 import qualified Database.Native
+import qualified Database.Native.JSON
 import qualified Database.SQL
 import qualified Database.SQL.MySQL
 import qualified Database.SQL.RelationalMapping