1
1
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00

🔥 Data.Source.empty.

This commit is contained in:
Rob Rix 2017-06-24 10:24:35 -04:00
parent 8e3d3cb1e1
commit 0979106e50

View File

@ -16,9 +16,6 @@ newtype Source = Source { sourceText :: B.ByteString }
deriving (Eq, IsString, Show)
empty :: Source
empty = Source B.empty
-- | Return a 'Source' from a 'ByteString'.
fromText :: T.Text -> Source
fromText = Source . encodeUtf8
@ -107,7 +104,7 @@ instance Semigroup Source where
Source a <> Source b = Source (a <> b)
instance Monoid Source where
mempty = Data.Source.empty
mempty = Source B.empty
mappend = (<>)
instance Listable Source where