blob: 1ac7876921cf98bab00a9fed4dab9b7fe1f7df20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# LANGUAGE NoImplicitPrelude #-}
module GHC.Stack.CCS where
{- Cuts the following loop:
GHC.Exception.errorCallWithCallStackException requires
GHC.Stack.CCS.currentCallStack, which requires
Foreign.C (for peeking CostCentres)
GHC.Foreign, GHC.IO.Encoding (for decoding UTF-8 strings)
.. lots of stuff ...
GHC.Exception
-}
import GHC.Base
currentCallStack :: IO [String]
|
