diff options
Diffstat (limited to 'lib/DATS')
| -rw-r--r-- | lib/DATS/valid.dats | 2 |
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 |