Move H.Interface.Parse/Lex to H.Parse/Lex

These are not just used to build Interfaces.

3 files changed, 11 insertions, 13 deletions

diff --git a/src/Haddock/Interface/LexParseRn.hs b/src/Haddock/Interface/LexParseRn.hs
index fc44cedf..89440139 100644
--- a/src/Haddock/Interface/LexParseRn.hs
+++ b/src/Haddock/Interface/LexParseRn.hs
@@ -19,8 +19,8 @@ module Haddock.Interface.LexParseRn (
   ) where
 
 import Haddock.Types
-import Haddock.Interface.Lex
-import Haddock.Interface.Parse
+import Haddock.Lex
+import Haddock.Parse
 import Haddock.Interface.Rn
 import Haddock.Interface.ParseModuleHeader
 import Haddock.Doc
@@ -46,8 +46,8 @@ lexParseRnHaddockComment hty gre (HsDocString fs) = do
    let str = unpackFS fs
    let toks = tokenise str
    let parse = case hty of
-         NormalHaddockComment -> parseHaddockParagraphs
-         DocSectionComment -> parseHaddockString
+         NormalHaddockComment -> parseParas
+         DocSectionComment -> parseString
    case parse toks of
      Nothing -> do
        tell ["doc comment parse failed: "++str]
diff --git a/src/Haddock/Interface/Lex.x b/src/Haddock/Lex.x
index 5f93084a..04b9f0c3 100644
--- a/src/Haddock/Interface/Lex.x
+++ b/src/Haddock/Lex.x
@@ -3,7 +3,8 @@
 --
 -- (c) Simon Marlow 2002
 --
--- This file was modified and integrated into GHC by David Waern 2006
+-- This file was modified and integrated into GHC by David Waern 2006.
+-- Then moved back into Haddock by Isaac Dupree in 2009 :-)
 --
 
 {
@@ -14,7 +15,7 @@
 --     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
 
-module Haddock.Interface.Lex (
+module Haddock.Lex (
 	Token(..),
 	tokenise
  ) where
diff --git a/src/Haddock/Interface/Parse.y b/src/Haddock/Parse.y
index a5175ddc..42553343 100644
--- a/src/Haddock/Interface/Parse.y
+++ b/src/Haddock/Parse.y
@@ -6,12 +6,9 @@
 --     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
 
-module Haddock.Interface.Parse (
-  parseHaddockParagraphs, 
-  parseHaddockString 
-) where
+module Haddock.Parse where
 
-import Haddock.Interface.Lex
+import Haddock.Lex
 import Haddock.Types (Doc(..))
 import Haddock.Doc
 import HsSyn
@@ -40,8 +37,8 @@ import RdrName
 
 %monad { Maybe }
 
-%name parseHaddockParagraphs  doc
-%name parseHaddockString seq
+%name parseParas doc
+%name parseString seq
 
 %%