Add NFData instance to ModuleName.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
haskell · Mar 29, 2016 · d55a9ef · d55a9ef
1 parent baf36ad
commit d55a9ef
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Cabal/Distribution/ModuleName.hs b/Cabal/Distribution/ModuleName.hs
@@ -27,6 +27,7 @@ import qualified Distribution.Compat.ReadP as Parse
 
 import qualified Data.Char as Char
          ( isAlphaNum, isUpper )
+import Control.DeepSeq
 import Data.Data (Data)
 import Data.Typeable (Typeable)
 import qualified Text.PrettyPrint as Disp
@@ -43,6 +44,9 @@ newtype ModuleName = ModuleName [String]
 
 instance Binary ModuleName
 
+instance NFData ModuleName where
+    rnf (ModuleName ms) = rnf ms
+
 instance Text ModuleName where
   disp (ModuleName ms) =
     Disp.hcat (intersperse (Disp.char '.') (map Disp.text ms))