{-# OPTIONS_GHC -fomit-interface-pragmas #-}
module GHC.StaticPtr.Internal (makeStatic) where
import GHC.StaticPtr(StaticPtr)
makeStatic :: (Int, Int) -> a -> StaticPtr a
makeStatic :: forall a. (Int, Int) -> a -> StaticPtr a
makeStatic (Int
line, Int
col) a
_ =
forall a. HasCallStack => [Char] -> a
error forall a b. (a -> b) -> a -> b
$ [Char]
"GHC bug - makeStatic: Unresolved static form at line "
forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> [Char]
show Int
line forall a. [a] -> [a] -> [a]
++ [Char]
", column " forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> [Char]
show Int
col forall a. [a] -> [a] -> [a]
++ [Char]
"."