Commit 972450cd authored by Thomas Peiselt's avatar Thomas Peiselt

disable debug trace.

parent f95b71d2
...@@ -27,8 +27,6 @@ import Network.HTTP.Client.TLS ...@@ -27,8 +27,6 @@ import Network.HTTP.Client.TLS
import StringUtils (replace, split, strip) import StringUtils (replace, split, strip)
import Debug.Trace
-- | Types of formats to render output to. -- | Types of formats to render output to.
data OutputFormat = Plain -- ^ Render to plain text. data OutputFormat = Plain -- ^ Render to plain text.
| HTML -- ^ Render to HTML. | HTML -- ^ Render to HTML.
...@@ -191,7 +189,7 @@ renderSelf string loc ...@@ -191,7 +189,7 @@ renderSelf string loc
packageSub package packageSub package
| otherwise = | otherwise =
let [name, args] = trace string $ split "::" string let [name, args] = split "::" string
package = extractPackageName loc package = extractPackageName loc
modname = extractModuleName loc modname = extractModuleName loc
in span "hoogle-name" in span "hoogle-name"
......
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