diff --git a/src/Rel8/Expr/Text.hs b/src/Rel8/Expr/Text.hs
index 0218ae4f..7458bd8b 100644
--- a/src/Rel8/Expr/Text.hs
+++ b/src/Rel8/Expr/Text.hs
@@ -58,9 +58,9 @@ infixr 6 ++.
 
 -- | Matches regular expression, case sensitive
 --
--- Corresponds to the @~.@ operator.
+-- Corresponds to the @~@ operator.
 (~.) :: Expr Text -> Expr Text -> Expr Bool
-(~.) = binaryOperator "~."
+(~.) = binaryOperator "~"
 infix 2 ~.