github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Define a constructor for the default language modes.

Browse Source
This commit is contained in:
Rob Rix 2019-09-27 19:02:14 -04:00
parent 9f82d6ad0e
commit 1ec65b4858
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Language.hs
View File

@ -11,6 +11,7 @@ module Data.Language
, textToLanguage , textToLanguage
, languageToText , languageToText
, PerLanguageModes(..) , PerLanguageModes(..)
, defaultLanguageModes
, LanguageMode(..) , LanguageMode(..)
, modeForLanguage , modeForLanguage
) where ) where
@ -147,6 +148,11 @@ newtype PerLanguageModes = PerLanguageModes
} }
deriving (Eq, Ord, Show) deriving (Eq, Ord, Show)
defaultLanguageModes :: PerLanguageModes
defaultLanguageModes = PerLanguageModes
{ pythonMode = ALaCarte
}
data LanguageMode data LanguageMode
= ALaCarte = ALaCarte
| Precise | Precise

4
test/Examples.hs
View File

@ -18,7 +18,7 @@ import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString.Lazy.Char8 as BLC import qualified Data.ByteString.Lazy.Char8 as BLC
import qualified Data.ByteString.Streaming.Char8 as ByteStream import qualified Data.ByteString.Streaming.Char8 as ByteStream
import Data.Either import Data.Either
import Data.Language (LanguageMode(..), PerLanguageModes(..)) import Data.Language (defaultLanguageModes)
import Data.Set (Set) import Data.Set (Set)
import Data.Traversable import Data.Traversable
import Data.Typeable import Data.Typeable
@ -123,4 +123,4 @@ knownFailuresForPath tsDir (Just path)
parseFilePath :: (Member (Error SomeException) sig, Member Distribute sig, Member Task sig, Member Files sig, Carrier sig m, MonadIO m) => Path.RelFile -> m Bool parseFilePath :: (Member (Error SomeException) sig, Member Distribute sig, Member Task sig, Member Files sig, Carrier sig m, MonadIO m) => Path.RelFile -> m Bool
parseFilePath path = readBlob (fileForRelPath path) >>= runReader (PerLanguageModes ALaCarte) . parseTermBuilder @[] TermShow . pure >>= const (pure True) parseFilePath path = readBlob (fileForRelPath path) >>= runReader defaultLanguageModes . parseTermBuilder @[] TermShow . pure >>= const (pure True)

2
test/SpecHelpers.hs
View File

@ -95,7 +95,7 @@ diffFilePaths session paths
parseFilePath :: TaskSession -> Path.RelFile -> IO (Either SomeException ByteString) parseFilePath :: TaskSession -> Path.RelFile -> IO (Either SomeException ByteString)
parseFilePath session path = do parseFilePath session path = do
blob <- readBlobFromFile (fileForRelPath path) blob <- readBlobFromFile (fileForRelPath path)
res <- runTask session . runReader (PerLanguageModes ALaCarte) $ parseTermBuilder TermSExpression (toList blob) res <- runTask session . runReader defaultLanguageModes $ parseTermBuilder TermSExpression (toList blob)
pure (runBuilder <$> res) pure (runBuilder <$> res)
-- | Read two files to a BlobPair. -- | Read two files to a BlobPair.