mirror of
https://github.com/github/semantic.git
synced 2024-12-20 21:31:48 +03:00
da2a3fc7a8
This fixes a lot of unnecessary exports in the specs, removes a couple otiose imports (comonads and semigroups are provided by base, I beleive), and removes a duplicated function.
56 lines
1.7 KiB
Haskell
56 lines
1.7 KiB
Haskell
{-# LANGUAGE DataKinds, GADTs, ScopedTypeVariables, TypeFamilies, TypeOperators #-}
|
|
module SpecHelpers
|
|
( diffFilePaths
|
|
, parseFilePath
|
|
, readFilePair
|
|
, Verbatim(..)
|
|
, verbatim
|
|
, readFileVerbatim
|
|
) where
|
|
|
|
import Control.Monad ((<=<))
|
|
import Control.Exception
|
|
import Data.Blob
|
|
import qualified Data.ByteString as B
|
|
import Data.Functor.Both
|
|
import Data.Language
|
|
import Data.Maybe (fromMaybe, fromJust)
|
|
import Data.Source
|
|
import Rendering.Renderer
|
|
import Semantic
|
|
import Semantic.Task
|
|
import qualified Semantic.IO as IO
|
|
import System.FilePath
|
|
import qualified Data.Text as T
|
|
import Data.Text.Encoding (decodeUtf8)
|
|
|
|
-- | Returns an s-expression formatted diff for the specified FilePath pair.
|
|
diffFilePaths :: Both FilePath -> IO B.ByteString
|
|
diffFilePaths paths = readFilePair paths >>= runTask . diffBlobPair SExpressionDiffRenderer
|
|
|
|
-- | Returns an s-expression parse tree for the specified FilePath.
|
|
parseFilePath :: FilePath -> IO B.ByteString
|
|
parseFilePath path = IO.readFile path (IO.languageForFilePath path) >>= pure . fromJust >>= runTask . parseBlob SExpressionTermRenderer
|
|
|
|
-- | Read two files to a BlobPair.
|
|
readFilePair :: Both FilePath -> IO BlobPair
|
|
readFilePair paths = let paths' = fmap (\p -> (p, IO.languageForFilePath p)) paths in
|
|
runBothWith IO.readFilePair paths'
|
|
|
|
readFileVerbatim :: FilePath -> IO Verbatim
|
|
readFileVerbatim = fmap verbatim . B.readFile
|
|
|
|
newtype Verbatim = Verbatim B.ByteString
|
|
deriving (Eq)
|
|
|
|
instance Show Verbatim where
|
|
show (Verbatim x) = show x
|
|
|
|
verbatim :: B.ByteString -> Verbatim
|
|
verbatim = Verbatim . stripWhitespace
|
|
where
|
|
stripWhitespace :: B.ByteString -> B.ByteString
|
|
stripWhitespace = B.foldl' go B.empty
|
|
where go acc x | x `B.elem` " \t\n" = acc
|
|
| otherwise = B.snoc acc x
|