diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-08-23 10:09:34 +0100 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-08-23 10:09:34 +0100 |
| commit | 5d41d4396425fc5c2e9b90d3e1e0baa5dc1ac224 (patch) | |
| tree | df13708dded1d48172cb51feb05fb41e74565ac8 /src/Haddock/Parser.hs | |
| parent | 92e50dba7b099f24cc357de71aaa7fe06bd061b1 (diff) | |
Move sources under haddock-api/src
Diffstat (limited to 'src/Haddock/Parser.hs')
| -rw-r--r-- | src/Haddock/Parser.hs | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/src/Haddock/Parser.hs b/src/Haddock/Parser.hs deleted file mode 100644 index ea4b7a3f..00000000 --- a/src/Haddock/Parser.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE StandaloneDeriving - , FlexibleInstances, UndecidableInstances - , IncoherentInstances #-} -{-# LANGUAGE LambdaCase #-} --- | --- Module : Haddock.Parser --- Copyright : (c) Mateusz Kowalczyk 2013, --- Simon Hengel 2013 --- License : BSD-like --- --- Maintainer : haddock@projects.haskell.org --- Stability : experimental --- Portability : portable - -module Haddock.Parser ( parseParas - , parseString - , parseIdent - ) where - -import qualified Documentation.Haddock.Parser as P -import DynFlags (DynFlags) -import FastString (mkFastString) -import Documentation.Haddock.Types -import Lexer (mkPState, unP, ParseResult(POk)) -import Parser (parseIdentifier) -import RdrName (RdrName) -import SrcLoc (mkRealSrcLoc, unLoc) -import StringBuffer (stringToStringBuffer) - -parseParas :: DynFlags -> String -> DocH mod RdrName -parseParas d = P.overIdentifier (parseIdent d) . P.parseParas - -parseString :: DynFlags -> String -> DocH mod RdrName -parseString d = P.overIdentifier (parseIdent d) . P.parseString - -parseIdent :: DynFlags -> String -> Maybe RdrName -parseIdent dflags str0 = - let buffer = stringToStringBuffer str0 - realSrcLc = mkRealSrcLoc (mkFastString "<unknown file>") 0 0 - pstate = mkPState dflags buffer realSrcLc - in case unP parseIdentifier pstate of - POk _ name -> Just (unLoc name) - _ -> Nothing |