1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00

No more IsString instance needed here.

This commit is contained in:
Patrick Thomson 2020-01-17 14:59:49 -05:00
parent 0e2a0e98b2
commit 1671d1c182

View File

@ -58,7 +58,6 @@ import Data.Project as X
import Data.Proxy as X
import Data.Semigroup as X (Semigroup(..))
import Data.Semilattice.Lower as X
import Data.String
import Data.Sum as Sum
import Data.Term as X
import Data.Traversable as X (for)
@ -84,11 +83,6 @@ import Unsafe.Coerce (unsafeCoerce)
runBuilder :: Builder -> ByteString
runBuilder = toStrict . toLazyByteString
-- | This orphan instance is so we don't have to insert @name@ calls
-- in dozens and dozens of environment specs.
instance IsString Name where
fromString = X.name . fromString
-- | Returns an s-expression formatted diff for the specified FilePath pair.
diffFilePaths :: TaskSession -> Path.RelFile -> Path.RelFile -> IO ByteString
diffFilePaths session p1 p2 = do