Permalink
Browse files

strifer intern

  • Loading branch information...
1 parent 6b53f82 commit 716733196fc92e29a87de8ae43593945a4d74396 @ekmett committed Aug 5, 2011
Showing with 3 additions and 2 deletions.
  1. +2 −1 Data/Interned/Internal.hs
  2. +1 −1 intern.cabal
@@ -1,6 +1,7 @@
{-# LANGUAGE TypeFamilies
, FlexibleInstances
, FlexibleContexts
+ , BangPatterns
, GeneralizedNewtypeDeriving #-}
module Data.Interned.Internal
@@ -57,7 +58,7 @@ class Interned t => Uninternable t where
unintern :: t -> Uninterned t
intern :: Interned t => Uninterned t -> t
-intern bt = unsafeDupablePerformIO $ modifyAdvice $ modifyMVar (getCache cache) go
+intern !bt = unsafeDupablePerformIO $ modifyAdvice $ modifyMVar (getCache cache) go
where
dt = describe bt
go (CacheState i m) = case HashMap.lookup dt m of
View
@@ -1,6 +1,6 @@
name: intern
category: Data, Data Structures
-version: 0.5.1
+version: 0.5.1.1
license: BSD3
cabal-version: >= 1.6
license-file: LICENSE

0 comments on commit 7167331

Please sign in to comment.