Add a jl convenience function.

Author: maleadt

src/reference.jl

@@ -5,7 +5,7 @@
 
 module JLArrays
 
-export JLArray
+export JLArray, jl
 
 using GPUArrays
 
@@ -196,6 +196,9 @@ JLArray(A::AbstractArray{T,N}) where {T,N} = JLArray{T,N}(A)
 # idempotency
 JLArray{T,N}(xs::JLArray{T,N}) where {T,N} = xs
 
+jl(xs) = adapt(JLArray, xs)
+Adapt.adapt_storage(::Type{JLArray}, xs::AbstractArray) = convert(JLArray, xs)
+
 
 ## conversions
 

test/runtests.jl

@@ -4,6 +4,9 @@ include("testsuite.jl")
 
 @testset "JLArray" begin
     using GPUArrays.JLArrays
+
+    jl([1])
+
     JLArrays.allowscalar(false)
     TestSuite.test(JLArray)
 end