8000 Have to NOINLINE this or everything will explode. · github/semantic@0483a37 · GitHub
[go: up one dir, main page]
Skip to content
This repository was archived by the owner on Apr 1, 2025. It is now read-only.

Commit 0483a37

Browse files
author
Patrick Thomson
committed
Have to NOINLINE this or everything will explode.
1 parent 47114f0 commit 0483a37

File tree

1 file changed

+1
-0
lines changed
  • semantic-scope-graph/src/Data/Functor

1 file changed

+1
-0
lines changed

‎semantic-scope-graph/src/Data/Functor/Tagged.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -69,3 +69,4 @@ taggedIO a = (a :#) . hashUnique <$> newUnique
6969
-- This is bad. Don't use it.
7070
unsafeTagged :: a -> Tagged a
7171
unsafeTagged = unsafePerformIO . taggedIO
72+
{-# NOINLINE unsafeTagged #-}

0 commit comments

Comments
 (0)
0