- else case ((domDelegate mbase), (domImport mbase)) of
- (Nothing, Nothing ) -> return $ Right base'
- (Nothing, Just keys) -> foldM mergeIncl1 (Right base') keys
- (Just key, _ ) -> mergeIncl1 (Right emptyNmcDom) key
+ else case ((domDelegate mbase), (domImport mbase)) of
+ (Nothing, Nothing ) -> return $ Right base'
+ (Nothing, Just keys) -> foldM mergeIncl1 (Right base') keys
+ (Just key, _ ) -> mergeIncl1 (Right emptyNmcDom) key