diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index f09dcd29..1f4867e4 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -22,8 +22,8 @@ module Main (main) where import Haddock.Backends.Html import Haddock.Backends.Hoogle import Haddock.Interface -import Haddock.Interface.Lex -import Haddock.Interface.Parse +import Haddock.Lex +import Haddock.Parse import Haddock.Types import Haddock.Version import Haddock.InterfaceFile @@ -400,7 +400,7 @@ getPrologue flags = [] -> return Nothing [filename] -> do str <- readFile filename - case parseHaddockParagraphs (tokenise str) of + case parseParas (tokenise str) of Nothing -> throwE "parsing haddock prologue failed" Just doc -> return (Just doc) _otherwise -> throwE "multiple -p/--prologue options" |