aboutsummaryrefslogtreecommitdiff
path: root/lib/DATS/valid.dats
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DATS/valid.dats')
-rw-r--r--lib/DATS/valid.dats2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/DATS/valid.dats b/lib/DATS/valid.dats
index c13386e..7c3bbab 100644
--- a/lib/DATS/valid.dats
+++ b/lib/DATS/valid.dats
@@ -9,7 +9,7 @@ implement{a} create_valid(value) = (value,true)
implement{a} create_unvalid() = let
staload UN = "prelude/SATS/unsafe.sats"
in
- ($UN.ptr0_get<a>(the_null_ptr),false) //UNSAFE:
+ ($extval(a,"(void *)NULL"),false) //UNSAFE:
end
implement{a} unwrap_valid(v) = v.0