Browse files

Add tuple instances for Prim

  • Loading branch information...
1 parent 01629e8 commit a1d3692bab37ae5fbe78db8aec3551924812d67c @reinerp committed Apr 9, 2012
Showing with 7 additions and 0 deletions.
  1. +7 −0 Data/Primitive/Types.hs
View
7 Data/Primitive/Types.hs
@@ -481,6 +481,13 @@ instance (Prim x, GPrim xs) => GPrim (xs :* x) where
{-# INLINE gindexOffAddrA# #-}
{-# INLINE greadOffAddrA# #-}
{-# INLINE gwriteOffAddrA# #-}
+
+instance Prim ()
+instance (Prim a, Prim b) => Prim (a, b)
+instance (Prim a, Prim b, Prim c) => Prim (a, b, c)
+instance (Prim a, Prim b, Prim c, Prim d) => Prim (a, b, c, d)
+instance (Prim a, Prim b, Prim c, Prim d, Prim e) => Prim (a, b, c, d, e)
+instance (Prim a, Prim b, Prim c, Prim d, Prim e, Prim f) => Prim (a, b, c, d, e, f)
#endif
#define derivePrim(ty, ctr, sz, align, idx_arr, rd_arr, wr_arr, set_arr, idx_addr, rd_addr, wr_addr, set_addr) \

0 comments on commit a1d3692

Please sign in to comment.