diff --git a/semantic-python/src/Language/Python/Core.hs b/semantic-python/src/Language/Python/Core.hs index dde03227e..7abefce5c 100644 --- a/semantic-python/src/Language/Python/Core.hs +++ b/semantic-python/src/Language/Python/Core.hs @@ -2,10 +2,11 @@ module Language.Python.Core ( compileModule ) where -import Control.Applicative +import Control.Monad.Fail import Data.Core as Core +import Prelude hiding (fail) 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 (Just _)) = pure Unit