aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Haddock/Backends/Hoogle.hs2
-rw-r--r--src/Haddock/GHC/Utils.hs4
2 files changed, 4 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 2e10ab9e..f921938f 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -60,8 +60,6 @@ ppModule iface = "" : doc (ifaceDoc iface) ++
---------------------------------------------------------------------
-- Utility functions
-reL = L undefined
-
dropComment (' ':'-':'-':' ':_) = []
dropComment (x:xs) = x : dropComment xs
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs
index 9ec5a5f7..5332475d 100644
--- a/src/Haddock/GHC/Utils.hs
+++ b/src/Haddock/GHC/Utils.hs
@@ -28,6 +28,10 @@ unL :: Located a -> a
unL (L _ x) = x
+reL :: a -> Located a
+reL = L undefined
+
+
moduleString :: Module -> String
moduleString = moduleNameString . moduleName