From 4ca512fe871f605d3c95b6bf3d9978845bba06a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?ARJANEN=20Lo=C3=AFc=20Jean=20David?= <arjanen.loic@gmail.com>
Date: Sat, 14 Jul 2012 17:48:48 +0200
Subject: [PATCH] Addition of an order-reversing newtype
---
Data/Ord.hs | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/Data/Ord.hs b/Data/Ord.hs
index 8180df2..4dd75c8 100644
|
a
|
b
|
|
| 18 | 18 | module Data.Ord ( |
| 19 | 19 | Ord(..), |
| 20 | 20 | Ordering(..), |
| | 21 | Down(..), |
| 21 | 22 | comparing, |
| 22 | 23 | ) where |
| 23 | 24 | |
| 24 | 25 | #if __GLASGOW_HASKELL__ |
| 25 | 26 | import GHC.Base |
| | 27 | import GHC.Exts(Down(..)) |
| 26 | 28 | #endif |
| 27 | 29 | |
| 28 | 30 | -- | |