From 7da6b959f103da21347b85dd611ebe27762f0cae Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 11 Jun 2019 12:03:48 -0400 Subject: [PATCH] Error messages are good, actually. --- semantic-python/src/Language/Python/Core.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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