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:
parent
0e2a0e98b2
commit
1671d1c182
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user