Trick hlint.

This is goofy as hell but we don’t have maybeM here.
github · Jan 6, 2020 · 29e09be · 29e09be
1 parent e34444e
commit 29e09be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 "<interactive>") (Span (Pos 1 1) (Pos 1 1)) allTogether]
 
   (heap, env) <- case Concrete.concrete Eval.eval filius of