diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-01 18:51:46 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-01 18:51:46 +0200 |
commit | 5481f94f5b936a2ad1947200838ea27ee860d0e7 (patch) | |
tree | edfe0b8f3eae5ec358de8a28f1c7201c028890b9 /packages/base/src/Data | |
parent | 60dc8245539263899c083b2760310a86b14d367b (diff) |
type operators
Diffstat (limited to 'packages/base/src/Data')
-rw-r--r-- | packages/base/src/Data/Packed/Internal/Signatures.hs | 9 |
1 files changed, 8 insertions, 1 deletions
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 @@ | |||
1 | {-# LANGUAGE TypeOperators #-} | ||
2 | |||
1 | -- | | 3 | -- | |
2 | -- Module : Data.Packed.Internal.Signatures | 4 | -- Module : Data.Packed.Internal.Signatures |
3 | -- Copyright : (c) Alberto Ruiz 2009-15 | 5 | -- Copyright : (c) Alberto Ruiz 2009-15 |
@@ -70,8 +72,13 @@ type TMMCVM = CInt -> CInt -> PD -> TMCVM -- | |||
70 | 72 | ||
71 | type CM b r = CInt -> CInt -> Ptr b -> r | 73 | type CM b r = CInt -> CInt -> Ptr b -> r |
72 | type CV b r = CInt -> Ptr b -> r | 74 | type CV b r = CInt -> Ptr b -> r |
73 | |||
74 | type OM b r = CInt -> CInt -> CInt -> CInt -> Ptr b -> r | 75 | type OM b r = CInt -> CInt -> CInt -> CInt -> Ptr b -> r |
75 | 76 | ||
76 | type CIdxs r = CV CInt r | 77 | type CIdxs r = CV CInt r |
78 | type Ok = IO CInt | ||
79 | |||
80 | infixr 5 :>, ::>, ..> | ||
81 | type (:>) t r = CV t r | ||
82 | type (::>) t r = OM t r | ||
83 | type (..>) t r = CM t r | ||
77 | 84 | ||