Commit fc3edb45 authored by Simon Marlow's avatar Simon Marlow
Browse files

Adapt to removal of catch from Prelude

parent 8e08f83a
-- !!! Testing the Prelude's Enum instances.
{-# LANGUAGE CPP #-}
module Main(main) where
import Control.Exception
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
import Data.Char
import Data.Ratio
......
-- !!! Testing the Int Enum instances.
{-# LANGUAGE CPP #-}
module Main(main) where
import Control.Exception
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
import Data.Int
main = do
......
-- !!! Testing the Word Enum instances.
{-# LANGUAGE CPP #-}
module Main(main) where
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
import Control.Exception
import Data.Word
import Data.Int
......
{-# LANGUAGE CPP #-}
module Main where
import Data.List
import Control.Exception
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
-- This module briefly tests all the functions in PrelList and a few
-- from List.
......@@ -146,7 +149,7 @@ main = do
print [delete 1 [0,1,1,2,3,4],
delete (error "delete") []]
-- \\
-- (\\)
print [ [0,1,1,2,3,4] \\ [3,2,1],
[1,2,3,4] \\ [],
[] \\ [error "\\\\"] ]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment