Merge pull request #849 from gracjan/pr-normalize-unicode-symbols

Normalize Unicode symbols to ASCII versions

Author: gracjan

haskell-indentation.el

@@ -1331,7 +1331,7 @@ line."
          (match-string-no-properties 1))
         ((looking-at "[][(){}[,;]")
          (match-string-no-properties 0))
-        ((looking-at "\\(\\\\\\|->\\|→\\|<-\\|←\\|::\\|∷\\|=\\||\\)\\([^-:!#$%&*+./<=>?@\\\\^|~]\\|$\\)")
+        ((looking-at "\\(\\\\\\|->\\|<-\\|::\\|=\\||\\)\\([^-:!#$%&*+./<=>?@\\\\^|~]\\|$\\)")
          (match-string-no-properties 1))
         ((looking-at "\\(→\\|←\\|∷\\)\\([^-:!#$%&*+./<=>?@\\\\^|~]\\|$\\)")
          (let ((tok (match-string-no-properties 1)))

tests/haskell-indentation-tests.el

@@ -126,7 +126,7 @@ function = do
   ((2 0) 2)
   ((3 0) 0 2 10))
 
-(hindent-test "2u* Handle underscore in identifiers""
+(hindent-test "2u Handle underscore in identifiers""
 function = do
   (_x) ← return ()
  z"
@@ -142,7 +142,7 @@ function = do
   ((2 0) 2)
   ((3 0) 0 2 12))
 
-(hindent-test "2au* Handle apostrophe in identifiers""
+(hindent-test "2au Handle apostrophe in identifiers""
 function = do
   (_'x') ← return ()
  z"