Be more precise with inlining

mrkkrp · Oct 19, 2016 · 446f293 · 446f293
1 parent 3ff738c
commit 446f293
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/Graphics/Identicon.hs b/Graphics/Identicon.hs
@@ -232,3 +232,4 @@ renderIdenticon proxy impl width height bs =
     then Nothing
     else Just $ generateImage
          (snd $ render proxy impl width height bs) width height
+{-# NOINLINE renderIdenticon #-}
diff --git a/Graphics/Identicon/Primitive.hs b/Graphics/Identicon/Primitive.hs
@@ -270,3 +270,4 @@ rsym l = Layer $ \w h x y ->
 
 oneof :: Integral n => [a] -> n -> a
 oneof xs n = xs !! (fromIntegral n `rem` length xs)
+{-# INLINE oneof #-}