"""
modelVariableOfVariable :: Variable -> <ReadGraph> Variable
-modelVariableOfVariable var = variable $ uriOf $ toResource $ modelOfVariable var
+modelVariableOfVariable var = variable $ uriOf $ modelOfVariable var
uniqueChild :: Model -> Resource -> String -> <ReadGraph> Variable
uniqueChild model typet childName = do
typeName = DB.nameOf typet
query = "Types: " + typeName + " AND Name: " + childName
- moduleResources = searchByQuery (toResource model) query
+ moduleResources = searchByQuery model query
variable $ uriOf $ moduleResources ! 0
"""