From 79130c6f0037e6330d005d5afa94acd93bbb451a Mon Sep 17 00:00:00 2001
From: "keller@cse.unsw.edu.au" <unknown>
Date: Thu, 24 Apr 2008 02:14:03 +0000
Subject: [PATCH] Added emptyP def

---
 GHC/PArr.hs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index 716dbb7..44206e1 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -93,6 +93,7 @@ module GHC.PArr (
   scanr1P,              -- :: (a -> a -> a) ->      [:a:] -> [:a:]
 --  iterate, repeat,          -- parallel arrays must be finite
   singletonP,           -- :: a -> [:a:]
+  emptyP,               -- :: [:a:]
   replicateP,           -- :: Int -> a -> [:a:]
 --  cycle,                    -- parallel arrays must be finite
   takeP,                -- :: Int -> [:a:] -> [:a:]
@@ -240,6 +241,9 @@ scanr1P  = error "Prelude.scanr1P: not implemented yet" -- FIXME
 singletonP             :: a -> [:a:]
 {-# INLINE singletonP #-}
 singletonP e = replicateP 1 e
+  
+emptyP :: [:a:]
+emptyP = error "emptyP in GHC.PArr: not yet implemented"
 
 replicateP             :: Int -> a -> [:a:]
 {-# INLINE replicateP #-}
-- 
1.7.10.4