diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-10 20:42:23 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-10 20:42:23 +0100 |
commit | 9aa11b26cdba009fe268f874c07f9037250bf2c6 (patch) | |
tree | 5c97d953049a1a916d86126db6a6646b3a9a8cd3 /src/Hakyll/Core/Identifier.hs | |
parent | 9eda3425a3153e0f226cc0e32b38c82cc7c806ef (diff) | |
download | hakyll-9aa11b26cdba009fe268f874c07f9037250bf2c6.tar.gz |
Pick dependency analyzer from old develop branch
Diffstat (limited to 'src/Hakyll/Core/Identifier.hs')
-rw-r--r-- | src/Hakyll/Core/Identifier.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Hakyll/Core/Identifier.hs b/src/Hakyll/Core/Identifier.hs index d7bb8c6..ade0405 100644 --- a/src/Hakyll/Core/Identifier.hs +++ b/src/Hakyll/Core/Identifier.hs @@ -40,6 +40,7 @@ module Hakyll.Core.Identifier ) where import Control.Applicative ((<$>), (<*>)) +import Control.DeepSeq (NFData (..)) import Control.Monad (mplus) import Data.Monoid (Monoid, mempty, mappend) import Data.List (intercalate) @@ -72,6 +73,9 @@ instance Show (Identifier a) where instance IsString (Identifier a) where fromString = parseIdentifier +instance NFData (Identifier a) where + rnf (Identifier g p) = rnf g `seq` rnf p `seq` () + -- | Discard the phantom type parameter of an identifier -- castIdentifier :: Identifier a -> Identifier b |