Fix compiler warnings: unused-top-binds

Progress avh4#302
ahstro · Oct 24, 2017 · 8124abf · 8124abf
1 parent 5fbd040
commit 8124abf
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/markdown/Cheapskate/Inlines.hs b/markdown/Cheapskate/Inlines.hs
@@ -15,7 +15,6 @@ import Prelude hiding (takeWhile)
 import Control.Applicative
 import Data.Monoid
 import Control.Monad
-import qualified Data.Map as M
 import Data.Text (Text)
 import qualified Data.Text as T
 import qualified Data.Set as Set
@@ -352,11 +351,6 @@ pInlineLink lab = do
   char ')'
   return $ singleton $ Link lab (Url url) tit
 
-lookupLinkReference :: ReferenceMap
-                    -> Text                -- reference label
-                    -> Maybe (Text, Text)  -- (url, title)
-lookupLinkReference refmap key = M.lookup (normalizeReference key) refmap
-
 -- A reference link: [label], [foo][label], or [label][].
 pReferenceLink :: ReferenceMap -> Text -> Inlines -> Parser Inlines
 pReferenceLink _ rawlab lab = do