[nongnu] elpa/haskell-tng-mode a7a90ea 028/385: fixup! improve the multiline font macro

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit a7a90ea65485589404e4c02d540ae902984fa575
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    fixup! improve the multiline font macro
---
 haskell-tng-font-lock.el | 8 +-------
 haskell-tng-util.el      | 6 ++++++
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/haskell-tng-font-lock.el b/haskell-tng-font-lock.el
index 1707ffe..790ef30 100644
--- a/haskell-tng-font-lock.el
+++ b/haskell-tng-font-lock.el
@@ -232,13 +232,7 @@ defaults for FIND."
   (rx symbol-start "::" symbol-end)
   (rx symbol-start "::" symbol-end (group (+ anything)))
   haskell-tng:paren-close
-  haskell-tng:font:explicit-type:indent)
-
-(defun haskell-tng:font:explicit-type:indent ()
-  "Indentation closing the previous symbol."
-  (save-excursion
-    (forward-symbol -1)
-    (haskell-tng:indent-close)))
+  haskell-tng:indent-close-previous)
 
 (haskell-tng:font:multiline topdecl
   (rx line-start (| "data" "newtype" "class" "instance") symbol-end)
diff --git a/haskell-tng-util.el b/haskell-tng-util.el
index 3a19d3f..e4737e8 100644
--- a/haskell-tng-util.el
+++ b/haskell-tng-util.el
@@ -31,5 +31,11 @@
             (throw 'closed (point))))
         nil))))
 
+(defun haskell-tng:indent-close-previous ()
+  "Indentation closing the previous symbol."
+  (save-excursion
+    (forward-symbol -1)
+    (haskell-tng:indent-close)))
+
 (provide 'haskell-tng-util)
 ;;; haskell-tng-util.el ends here