@@ -13,10 +13,11 @@ module Data.CountryCodes.ISO31661 (
1313) where
1414
1515import Control.Applicative (pure)
16+import Control.DeepSeq (NFData(..))
1617import Data.Aeson
1718import Data.Typeable
1819import qualified Data.Text as T
19−import Prelude (Show,Read,Eq,Ord,Bounded,Enum,error,($),(++),Maybe(..),(.),fail)
20+import Prelude (Show,Read,Eq,Ord,Bounded,Enum,error,($),(++),Maybe(..),(.),fail,seq)
2021import Text.Shakespeare.I18N
2122
2223data CountryCode =
@@ -1560,3 +1561,6 @@ instance FromJSON CountryCode where
15601561instance RenderMessage master CountryCode where
15611562 renderMessage _ _ = toName
15621563
1564+-- | Allow the deep evaluation of CountryCode with `deepseq`
1565+instance NFData CountryCode where
1566+ rnf a = a `seq` ()