@@ -298,8 +298,7 @@ readThunkWith specTypes dir = do
298298 Left e -> putLog Debug [i|Thunk specification ${_thunkSpec_name spec} did not match ${dir}: ${e}|] *> loop rest
299299 x@(Right _) -> x <$ putLog Debug [i|Thunk specification ${_thunkSpec_name spec} matched ${dir}|]
300300
301−-- | Read a thunk and validate that it is exactly a packed thunk.
302−-- If additional data is present, fail.
301+-- | Read a packed or unpacked thunk based on predefined thunk specifications.
303302readThunk :: (MonadObelisk m) => FilePath -> m (Either ReadThunkError ThunkData)
304303readThunk = readThunkWith thunkSpecTypes
305304