{-# INLINE singletonP #-}
singletonP e = replicateP 1 e
-emptyP :: [:a:]
-emptyP = error "emptyP in GHC.PArr: not yet implemented"
-
replicateP :: Int -> a -> [:a:]
{-# INLINE replicateP #-}
replicateP n e = runST (do
#endif /* __HADDOCK__ */
+emptyP:: [:a:]
+{- NOINLINE emptyP #-}
+emptyP = replicateP 0 undefined
\ No newline at end of file