Update Eval.hs

This commit is contained in:
John Wiegley 2018-02-13 14:13:55 -08:00 committed by GitHub
parent 1877180314
commit 17a2b0f8b4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions

View File

@ -133,7 +133,8 @@ evalExpr = cata phi
Just v -> pure v
Nothing -> case alternative of
Just v -> v env
Nothing -> error $ "could not look up attribute '" ++ (intercalate "." $ map show ks) ++ "' in value " ++ (show aset')
Nothing -> error $ "could not look up attribute '"
++ intercalate "." (map show ks) ++ "' in value " ++ show aset'
extract (Fix (NVSet s)) (k:ks) = case Map.lookup k s of
Just v -> extract v ks
Nothing -> Nothing