From a7451f0e965581963c2afd003cffd8f7a54fafbe Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Mon, 28 Jul 2014 17:36:00 -0700
Subject: [PATCH] Idomatic range creation

---
 RangeQuery.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/RangeQuery.hs b/RangeQuery.hs
index 9de732527..1ef361bae 100644
--- a/RangeQuery.hs
+++ b/RangeQuery.hs
@@ -16,11 +16,11 @@ import Data.Maybe (fromMaybe, listToMaybe)
 
 rangeGeq :: Int -> Range Int
 rangeGeq n =
-  head $ rangeUnion (singletonRange n) $ Range (BoundaryAbove n) BoundaryAboveAll
+  Range (BoundaryBelow n) BoundaryAboveAll
 
 rangeLeq :: Int -> Range Int
 rangeLeq n =
-  head $ rangeUnion (singletonRange n) $ Range BoundaryBelowAll (BoundaryBelow n)
+  Range BoundaryBelowAll (BoundaryAbove n)
 
 parseRange :: String -> Maybe(Range Int)
 parseRange range = do