diff options
| -rw-r--r-- | compiler/utils/FV.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/FV.hs b/compiler/utils/FV.hs index 8e012209cf..b5cf096aac 100644 --- a/compiler/utils/FV.hs +++ b/compiler/utils/FV.hs @@ -184,7 +184,7 @@ mapUnionFV :: (a -> FV) -> [a] -> FV mapUnionFV _f [] _fv_cand _in_scope acc = acc mapUnionFV f (a:as) fv_cand in_scope acc = mapUnionFV f as fv_cand in_scope $! f a fv_cand in_scope $! acc -{-# INLINE mapUnionFV #-} +{-# INLINABLE mapUnionFV #-} -- | Union many free variable computations. unionsFV :: [FV] -> FV |