summaryrefslogtreecommitdiff
path: root/src/Refined/AEq.hs
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2018-05-15 23:08:51 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2018-05-15 23:08:51 +0200
commit19b440fbabf5bc95e97a7a53119ec6218c3639d7 (patch)
treeb33a0c3c5ddcbc41853af3bec260dee0dd5f8cfa /src/Refined/AEq.hs
parent7bd8b73c107590bc2e578395fe940b95752654c0 (diff)
downloadtrivmix-master.tar
trivmix-master.tar.gz
trivmix-master.tar.bz2
trivmix-master.tar.xz
trivmix-master.zip
Be somewhat stickyHEADmaster
Diffstat (limited to 'src/Refined/AEq.hs')
-rw-r--r--src/Refined/AEq.hs12
1 files changed, 12 insertions, 0 deletions
diff --git a/src/Refined/AEq.hs b/src/Refined/AEq.hs
new file mode 100644
index 0000000..0a60679
--- /dev/null
+++ b/src/Refined/AEq.hs
@@ -0,0 +1,12 @@
1{-# OPTIONS_GHC -fno-warn-orphans #-}
2
3module Refined.AEq where
4
5import Data.AEq
6import Refined
7
8import Data.Function (on)
9
10instance AEq a => AEq (Refined p a) where
11 (===) = (===) `on` unrefine
12 (~==) = (~==) `on` unrefine