Skip to content

Commit 0425c2c

Browse files
committed
Utils: Fix1: add couple inlines
1 parent d149a4c commit 0425c2c

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

src/Nix/Utils/Fix1.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -87,8 +87,11 @@ instance
8787
type Ref (Fix1T t m) = Ref m
8888

8989
newRef = lift . newRef
90+
{-# inline newRef #-}
9091
readRef = lift . readRef
92+
{-# inline readRef #-}
9193
writeRef r = lift . writeRef r
94+
{-# inline writeRef #-}
9295

9396

9497
instance
@@ -98,6 +101,7 @@ instance
98101
=> MonadAtomicRef (Fix1T t m)
99102
where
100103
atomicModifyRef r = lift . atomicModifyRef r
104+
{-# inline atomicModifyRef #-}
101105

102106
{-
103107

0 commit comments

Comments
 (0)