From 29e09bea4d7390db5bbfd30de7771a94e37b2820 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 6 Jan 2020 15:17:53 -0500 Subject: [PATCH] Trick hlint. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This is goofy as hell but we don’t have maybeM here. --- semantic-python/test/Test.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/semantic-python/test/Test.hs b/semantic-python/test/Test.hs index 2e402ad66..4078c9b8f 100644 --- a/semantic-python/test/Test.hs +++ b/semantic-python/test/Test.hs @@ -58,7 +58,7 @@ assertEvaluatesTo :: Term (Ann Span :+: Core) Name -> Text -> Concrete (Term (An assertEvaluatesTo core k val = do prelude <- parsePrelude let withPrelude = (named' "__semantic_prelude" :<- prelude) >>>= core - allTogether <- maybe (HUnit.assertFailure ("Can’t evaluate open term: " <> showCore (stripAnnotations withPrelude))) pure (closed withPrelude) + allTogether <- fromMaybe (HUnit.assertFailure ("Can’t evaluate open term: " <> showCore (stripAnnotations withPrelude))) (pure <$> closed withPrelude) let filius = [File (Path.absRel "") (Span (Pos 1 1) (Pos 1 1)) allTogether] (heap, env) <- case Concrete.concrete Eval.eval filius of