Stephen DiehlandGitHub
46220a1a4a
* added HasCallStack constraint for trace functions, for issue #39 * unpack string on 7.6
19 lines
414 B
Haskell
19 lines
414 B
Haskell
{-# LANGUAGE CPP #-}
|
|
{-# LANGUAGE KindSignatures #-}
|
|
{-# LANGUAGE ImplicitParams #-}
|
|
{-# LANGUAGE ConstraintKinds #-}
|
|
|
|
module CallStack
|
|
( HasCallStack
|
|
) where
|
|
|
|
#if MIN_VERSION_base(4,9,0)
|
|
import GHC.Stack (HasCallStack)
|
|
#elif MIN_VERSION_base(4,8,1)
|
|
import qualified GHC.Stack
|
|
type HasCallStack = (?callStack :: GHC.Stack.CallStack)
|
|
#else
|
|
import GHC.Exts (Constraint)
|
|
type HasCallStack = (() :: Constraint)
|
|
#endif
|