Commit a7d2e02b authored by Michael Hanus's avatar Michael Hanus
Browse files

Small adaptation to current libraries

parent 7b8cbf99
......@@ -21,7 +21,7 @@ import EntitiesToHtmlGeneration
--- Show operation for AbstractCurry programs that does not put
--- name qualifiers:
showCProg :: CurryProg -> String
showCProg = prettyCurryProg (defaultOptions { qualification = None })
showCProg = prettyCurryProg (setQualification None defaultOptions)
getRelationships :: ERD -> [Relationship]
getRelationships (ERD _ _ relationships) = relationships
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment