From e3a43b77a9c1c49fe7b0dd1da0e17b1a714700ec Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 30 Jun 2016 15:02:28 -0400 Subject: [PATCH] Fix overloaded string warning. --- test/InterpreterSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/InterpreterSpec.hs b/test/InterpreterSpec.hs index a25942de8..0b62d9790 100644 --- a/test/InterpreterSpec.hs +++ b/test/InterpreterSpec.hs @@ -16,7 +16,7 @@ spec :: Spec spec = parallel $ do describe "interpret" $ do it "returns a replacement when comparing two unicode equivalent terms" $ - let termA = cofree $ (StringLiteral .: RNil) :< Leaf "t\776" + let termA = cofree $ (StringLiteral .: RNil) :< Leaf ("t\776" :: Text) termB = cofree $ (StringLiteral .: RNil) :< Leaf "\7831" in diffTerms (free . Free) ((==) `on` extract) diffCost termA termB `shouldBe` free (Pure (Replace termA termB))