From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 13 Jul 2012 03:26:36 +0000 (-0400)
Subject: Use an exact match for the "Full Story" link text.
X-Git-Tag: v0.0.1~13
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=commitdiff_plain;h=68bab2c1cc272e99c94447afb93678e2b4d4bc72

Use an exact match for the "Full Story" link text.
---

diff --git a/src/LWN/XHTML.hs b/src/LWN/XHTML.hs
index a2f103f..5d3bbd1 100644
--- a/src/LWN/XHTML.hs
+++ b/src/LWN/XHTML.hs
@@ -16,7 +16,6 @@ module LWN.XHTML (
 where
 
 import Text.HandsomeSoup (css)
-import Text.Regex.Posix ((=~))
 import Text.XML.HXT.Core (
   (>>>),
   (/>),
@@ -163,7 +162,7 @@ full_story_link =
   hasName "a"
   >>>
   ifA
-    (this /> hasText (=~ "Full Story"))
+    (this /> hasText (== "Full Story"))
     this
     none