1
1
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00

Error messages are good, actually.

This commit is contained in:
Rob Rix 2019-06-11 12:03:48 -04:00
parent 598000c3ab
commit 7da6b959f1
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7

View File

@ -2,10 +2,11 @@ module Language.Python.Core
( compileModule ( compileModule
) where ) where
import Control.Applicative import Control.Monad.Fail
import Data.Core as Core import Data.Core as Core
import Prelude hiding (fail)
import TreeSitter.Python.AST as Py import TreeSitter.Python.AST as Py
compileModule :: Alternative m => Py.Module -> m Core compileModule :: MonadFail m => Py.Module -> m Core
compileModule (Module Nothing) = pure Unit compileModule (Module Nothing) = pure Unit
compileModule (Module (Just _)) = pure Unit compileModule (Module (Just _)) = pure Unit