diff --git a/test/Lexer/LexerSpec.hs b/test/Lexer/LexerSpec.hs index a69c38d..ec4df40 100644 --- a/test/Lexer/LexerSpec.hs +++ b/test/Lexer/LexerSpec.hs @@ -112,7 +112,7 @@ spec = describe "Lexer.scan" $ do describe "ureal" $ do it "can classify ureal" $ do - scan "4/2 " `shouldBe` [ Number . Inexact $ Rational 4 2 ] + scan "4/2 " `shouldBe` [ Number . Exact $ Rational 4 2 ] describe "real" $ do it "can classify real" $ do