Commit 9ebabc19 authored by Jan Rasmus Tikovsky 's avatar Jan Rasmus Tikovsky
Browse files

Minor fix

parent acd93afb
......@@ -172,7 +172,7 @@ makeRelativePath cur new | cur == new = ""
| otherwise = htmlFile new
htmlFile :: ModuleIdent -> String
htmlFile m = show m ++ "_curry.html"
htmlFile m = moduleName m ++ "_curry.html"
isCall :: Code -> Bool
isCall (TypeCons TypeExport _) = True
......
Markdown is supported
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