diff --git a/markdown/Cheapskate/Inlines.hs b/markdown/Cheapskate/Inlines.hs
index 336c1129d..d27f47f5b 100644
--- 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