diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_run/CgStaticPointers.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/CgStaticPointers.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/codeGen/should_run/CgStaticPointers.hs b/testsuite/tests/codeGen/should_run/CgStaticPointers.hs index f7776b0c06..66363ded6f 100644 --- a/testsuite/tests/codeGen/should_run/CgStaticPointers.hs +++ b/testsuite/tests/codeGen/should_run/CgStaticPointers.hs @@ -15,15 +15,15 @@ main = do print $ deRefStaticPtr (static g) print $ deRefStaticPtr p0 'a' print $ deRefStaticPtr (static t_field) $ T 'b' + where + g :: String + g = "found" lookupKey :: StaticPtr a -> IO a lookupKey p = unsafeLookupStaticPtr (staticKey p) >>= \case Just p -> return $ deRefStaticPtr p Nothing -> error $ "couldn't find " ++ show (staticPtrInfo p) -g :: String -g = "found" - p0 :: Typeable a => StaticPtr (a -> a) p0 = static (\x -> x) |