From eeab8580ff6db353476d0136b4c4f525435f1a0d Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 17 May 2016 15:57:18 -0400
Subject: [PATCH] < != >

---
 src/Range.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Range.hs b/src/Range.hs
index da5e7fd48..af581526f 100644
--- a/src/Range.hs
+++ b/src/Range.hs
@@ -50,7 +50,7 @@ maybeLastIndex (Range _ end) = Just $ end - 1
 -- | Test two ranges for intersection.
 intersectsRange :: Range -> Range -> Bool
 intersectsRange range1 range2 = isWellFormedAndNonEmpty $ intersectionRange range1 range2
-  where isWellFormedAndNonEmpty range = start range > end range
+  where isWellFormedAndNonEmpty range = start range < end range
 
 -- Return the (possibly empty, possibly ill-formed) intersection of two ranges.
 intersectionRange :: Range -> Range -> Range