Verified Commit 90842b88 authored by Camil Staps's avatar Camil Staps 🚀

Also add Database.Native.JSON

parent cdf9aaa4
Pipeline #11241 passed with stage
in 1 minute and 35 seconds
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
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)
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment