From d02190da47dfd3712ce72cac6b36604f544dfb2b Mon Sep 17 00:00:00 2001 From: David Waern Date: Wed, 24 Jun 2009 21:07:50 +0000 Subject: Delete Haddock.Exception and move contents to Haddock.Types Only a few lines of code that mainly declares a type - why not just put it in Haddock.Types. --- src/Haddock/Exception.hs | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 src/Haddock/Exception.hs (limited to 'src/Haddock/Exception.hs') diff --git a/src/Haddock/Exception.hs b/src/Haddock/Exception.hs deleted file mode 100644 index eabc722e..00000000 --- a/src/Haddock/Exception.hs +++ /dev/null @@ -1,34 +0,0 @@ --- --- Haddock - A Haskell Documentation Tool --- --- (c) Simon Marlow 2003 --- - - -{-# LANGUAGE DeriveDataTypeable #-} - - -module Haddock.Exception ( - HaddockException, - throwE -) where - - -import Data.Typeable -import Control.Exception - - -data HaddockException = HaddockException String deriving Typeable - - -instance Show HaddockException where - show (HaddockException str) = str - - -throwE :: String -> a -#if __GLASGOW_HASKELL__ >= 609 -instance Exception HaddockException -throwE str = throw (HaddockException str) -#else -throwE str = throwDyn (HaddockException str) -#endif -- cgit v1.2.3