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:
parent
8e3d3cb1e1
commit
0979106e50
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user