1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00

Derive an NFData instance for Verbatim.

This commit is contained in:
Rob Rix 2016-05-30 12:42:19 -04:00
parent f10c0b305d
commit 643e37477f

View File

@ -82,7 +82,7 @@ testDiff renderer paths diff matcher = do
sourceBlobs sources = pure S.SourceBlob <*> sources <*> pure mempty <*> paths <*> pure (Just S.defaultPlainBlob)
newtype Verbatim = Verbatim Text
deriving Eq
deriving (Eq, NFData)
instance Show Verbatim where
showsPrec _ (Verbatim text) = (T.unpack text ++)