picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fix MonadThunk in Standard.hs

Browse source
This commit is contained in:
John Wiegley 2019-03-16 12:58:33 -07:00
parent 537f1fc8c7
commit 4387024935
No known key found for this signature in database
GPG key ID: C144D8F4F19FE630
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Nix/Thunk/Standard.hs
View file

@ -92,10 +92,10 @@ instance MonadStdThunk m
else
fmap (StdThunk . StdCited . NCited []) . thunk $ mv
thunkId = error "jww (2019-03-15): NYI"
thunkId (StdThunk (StdCited (NCited _ t))) = thunkId t
query = error "jww (2019-03-15): NYI"
queryM = error "jww (2019-03-15): NYI"
query (StdThunk (StdCited (NCited _ t))) = query t
queryM (StdThunk (StdCited (NCited _ t))) = queryM t
-- The ThunkLoop exception is thrown as an exception with MonadThrow,
-- which does not capture the current stack frame information to provide