GHC.Stack.callStack throws exception

This program,

import GHC.Stack
main :: IO ()
main =  putStrLn (prettyCallStack $ id (\_ -> callStack) ())

terminates with,

Hi: popCallStack: empty stack

Trac metadata

Trac field	Value
Version	8.0.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	high
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture