Commit cae4d7ee authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺
Browse files

Define NFData instance for `Dependency`&`VersionRange`

parent 4605eee8
......@@ -202,6 +202,8 @@ instance Text Dependency where
Parse.skipSpaces
return (Dependency name ver)
instance NFData Dependency where rnf = genericRnf
thisPackageVersion :: PackageIdentifier -> Dependency
thisPackageVersion (PackageIdentifier n v) =
Dependency n (thisVersion v)
......
......@@ -134,6 +134,8 @@ data VersionRange
instance Binary VersionRange
instance NFData VersionRange where rnf = genericRnf
#if __GLASGOW_HASKELL__ < 707
-- starting with ghc-7.7/base-4.7 this instance is provided in "Data.Data"
deriving instance Data Version
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment