|
@@ -40,6 +40,7 @@ ignoreNotFound = mapExceptT (map ignoreNotFound')
|
|
|
where
|
|
where
|
|
|
ignoreNotFound' = case _ of
|
|
ignoreNotFound' = case _ of
|
|
|
(Left (QNodeNotFoundError _ )) -> Right Nothing
|
|
(Left (QNodeNotFoundError _ )) -> Right Nothing
|
|
|
|
|
+ (Left (QNodeListNotFoundError _ )) -> Right Nothing
|
|
|
(Left q) -> Left q
|
|
(Left q) -> Left q
|
|
|
(Right n') -> Right (Just n')
|
|
(Right n') -> Right (Just n')
|
|
|
|
|
|