blob: 91c8334cc9ba8abbc5d9e9a97359670602156ea2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{- git-annex - Nasty portability workarounds. -}
module Portability (SomeException) where
import Control.Exception
-- old ghc does not know about SomeException.
--
-- http://haskell.1045720.n5.nabble.com/Help-using-catch-in-6-10-td3127921.html#a3127921
--
-- This needs ghc -cpp
--
-- This would be better, but then users of old ghc would need to install it.
-- http://hackage.haskell.org/package/extensible-exceptions
#if __GLASGOW_HASKELL__ < 610
type SomeException = Exception
#endif
|
