github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Verbatim wraps Text.

Browse Source
This commit is contained in:
Rob Rix 2016-05-30 12:39:43 -04:00
parent 7a52507e94
commit 7fe5be7fe2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/CorpusSpec.hs
View File

@ -80,8 +80,8 @@ testDiff renderer paths diff matcher = do
where parser = parserForFilepath (fst paths)
sourceBlobs sources = pure S.SourceBlob <*> sources <*> pure mempty <*> paths <*> pure (Just S.defaultPlainBlob)
newtype Verbatim = Verbatim String
newtype Verbatim = Verbatim Text
deriving Eq
instance Show Verbatim where
showsPrec _ (Verbatim string) = (string++)
showsPrec _ (Verbatim string) = (T.unpack string ++)