symbol 0.1.1.1 → 0.1.2

raw patch · 2 files changed

+8/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Data/Symbol.hs +7/−3
• symbol.cabal +1/−1

@@ -1,4 +1,4 @@--- Copyright (c) 2009-2010+-- Copyright (c) 2009-2012 --         The President and Fellows of Harvard College. -- -- Redistribution and use in source and binary forms, with or without@@ -28,7 +28,7 @@ -------------------------------------------------------------------------------- -- | -- Module      :  Data.Symbol--- Copyright   :  (c) Harvard University 2009-2010+-- Copyright   :  (c) Harvard University 2009-2012 -- License     :  BSD-style -- Maintainer  :  mainland@eecs.harvard.edu --@@ -63,6 +63,9 @@ instance Ord Symbol where     compare (Symbol i1 _) (Symbol i2 _) = compare i1 i2 +instance Show Symbol where+    showsPrec p (Symbol _ s) = showsPrec p s+ #if __GLASGOW_HASKELL__ >= 608 instance IsString Symbol where     fromString = intern@@ -74,6 +77,7 @@     }  symbolEnv :: MVar SymbolEnv+{-# NOINLINE symbolEnv #-} symbolEnv = unsafePerformIO $ newMVar $ SymbolEnv 1 Map.empty  -- We @seq@ @s@ so that we can guarantee that when we perform the lookup we@@ -81,8 +85,8 @@ -- leading to a deadlock.  -- |Intern a string to produce a 'Symbol'.-{-# NOINLINE intern #-} intern :: String -> Symbol+{-# NOINLINE intern #-} intern s = s `seq` unsafePerformIO $ modifyMVar symbolEnv $ \env -> do     case Map.lookup s (symbols env) of       Nothing  -> do let sym  = Symbol (uniq env) s

@@ -1,5 +1,5 @@ name:           symbol-version:        0.1.1.1+version:        0.1.2 cabal-version:  >= 1.6 license:        BSD3 license-file:   LICENSE