- "bit":dn:xs -> do
- dom <- mergeImport queryOp $
- emptyNmcDom { domImport = Just ("d/" ++ dn)}
- case dom of
- Left err -> return $ Left err
- Right dom' -> return $ Right $ descendNmcDom xs dom'
- _ ->
- return $ Left "Only \".bit\" domain is supported"
+ "bit":dn:xs -> descendNmcDom queryOp xs $ seedNmcDom dn
+ _ -> return $ Left "Only \".bit\" domain is supported"