Fix 'varable' naming mistake

Author: garyb

src/SqlSquared/Parser.purs

@@ -306,7 +306,7 @@ primaryExpr = asErrorMessage "primary expression" $ PC.choice
       xs → embed $ Sig.SetLiteral xs
   , unaryOperator
   , functionExpr
-  , varable
+  , variable
   , literal
   , wildcard
   , arrayLiteral
@@ -397,7 +397,7 @@ functionDecl parseExpr = asErrorMessage "function declaration" do
   _ ← PC.try $ keyword "create" *> keyword "function"
   name ← ident
   operator "("
-  args ← PC.sepBy varableString $ operator ","
+  args ← PC.sepBy variableString $ operator ","
   operator ")"
   _ ← keyword "begin"
   body ← parseExpr
@@ -414,11 +414,11 @@ import_ = asErrorMessage "import declaration" do
   path ← Pt.parseAnyDirPath P.fail s
   pure $ Sig.Import path
 
-varable ∷ ∀ m t. SqlParser' m t
-varable = C.var <$> varableString
+variable ∷ ∀ m t. SqlParser' m t
+variable = C.var <$> variableString
 
-varableString ∷ ∀ m. Monad m ⇒ P.ParserT TokenStream m Ident
-varableString = asErrorMessage "varable" $ PC.try do
+variableString ∷ ∀ m. Monad m ⇒ P.ParserT TokenStream m Ident
+variableString = asErrorMessage "variable" $ PC.try do
   operator ":"
   PP.Position pos1 ← P.position
   s ← ident <|> anyKeyword
@@ -579,7 +579,7 @@ tableRelation = do
 
 varRelation ∷ ∀ m t. SqlParser m t (Sig.Relation t)
 varRelation = do
-  var ← varableString
+  var ← variableString
   a ← PC.optionMaybe do
     _ ← keyword "as"
     ident