import GHC.Base
import GHC.Show
import GHC.Read
+#endif
+
import Data.Typeable
+#ifdef __GLASGOW_HASKELL__
{-
-- just for testing
import Test.QuickCheck
partitionEithers :: [Either a b] -> ([a],[b])
partitionEithers = foldr (either left right) ([],[])
where
- left a (l, r) = (a:l, r)
- right a (l, r) = (l, a:r)
+ left a ~(l, r) = (a:l, r)
+ right a ~(l, r) = (l, a:r)
{-
{--------------------------------------------------------------------