Idomatic range creation

2014-07-28 17:36:00 -07:00
parent f6a4a98e74
commit a7451f0e96
1 changed files with 2 additions and 2 deletions
@@ -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