From 5481f94f5b936a2ad1947200838ea27ee860d0e7 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Mon, 1 Jun 2015 18:51:46 +0200
Subject: type operators

---
 packages/base/src/Data/Packed/Internal/Signatures.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'packages/base/src/Data/Packed')

diff --git a/packages/base/src/Data/Packed/Internal/Signatures.hs b/packages/base/src/Data/Packed/Internal/Signatures.hs
index 5c54498..e1b3d5e 100644
--- a/packages/base/src/Data/Packed/Internal/Signatures.hs
+++ b/packages/base/src/Data/Packed/Internal/Signatures.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE TypeOperators            #-}
+
 -- |
 -- Module      :  Data.Packed.Internal.Signatures
 -- Copyright   :  (c) Alberto Ruiz 2009-15
@@ -70,8 +72,13 @@ type TMMCVM = CInt -> CInt -> PD -> TMCVM       --
 
 type CM b r = CInt -> CInt -> Ptr b -> r
 type CV b r = CInt -> Ptr b -> r
-
 type OM b r = CInt -> CInt -> CInt -> CInt -> Ptr b -> r
 
 type CIdxs r = CV CInt r
+type Ok = IO CInt
+
+infixr 5 :>, ::>, ..>
+type (:>)  t r = CV t r
+type (::>) t r = OM t r
+type (..>) t r = CM t r
 
-- 
cgit v1.2.3