1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00

📝 uninitializedAddress.

This commit is contained in:
Rob Rix 2017-12-21 10:18:50 -05:00
parent 475a7d79da
commit f63d73e843

View File

@ -62,5 +62,6 @@ instance (Alternative m, Monad m) => MonadAddress Monovariant m where
alloc = pure . Address . Monovariant alloc = pure . Address . Monovariant
-- | Fail with a message denoting an uninitialized address (i.e. one which was 'alloc'ated, but never 'assign'ed a value before being 'deref'erenced).
uninitializedAddress :: MonadFail m => m a uninitializedAddress :: MonadFail m => m a
uninitializedAddress = Control.Monad.Fail.fail "uninitialized address" uninitializedAddress = Control.Monad.Fail.fail "uninitialized address"