From: keller@cse.unsw.edu.au <unknown>
Date: Thu, 24 Apr 2008 02:14:03 +0000 (+0000)
Subject: Added emptyP def
X-Git-Tag: 2008-05-28~13
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=79130c6f0037e6330d005d5afa94acd93bbb451a;p=ghc-base.git

Added emptyP def
---

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 #-}