From 3bb427033226bca0e98e088e60e2ad0fc42206e5 Mon Sep 17 00:00:00 2001
From: Hiroki Tokunaga <tokusan441@gmail.com>
Date: Fri, 10 Nov 2023 22:29:35 +0900
Subject: [PATCH] Remove unused functions

---
 src/HIndent/Pretty.hs | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/src/HIndent/Pretty.hs b/src/HIndent/Pretty.hs
index d4582a4b2..bb8f62d45 100644
--- a/src/HIndent/Pretty.hs
+++ b/src/HIndent/Pretty.hs
@@ -790,26 +790,6 @@ prettyHsExpr (RecordUpd _ name fields) = hor <-|> ver
       pretty name
       newline
       indentedBlock $ pretty fields
-    printHorFields ::
-         (Pretty a, Pretty b, CommentExtraction l)
-      => [GenLocated l (HsFieldBind a b)]
-      -> Printer ()
-    printHorFields = hFields . fmap (`printCommentsAnd` horField)
-    printVerFields ::
-         (Pretty a, Pretty b, CommentExtraction l)
-      => [GenLocated l (HsFieldBind a b)]
-      -> Printer ()
-    printVerFields = vFields . fmap printField
-    printField x = printCommentsAnd x $ (<-|>) <$> horField <*> verField
-    horField HsFieldBind {..} = do
-      pretty hfbLHS
-      string " = "
-      pretty hfbRHS
-    verField HsFieldBind {..} = do
-      pretty hfbLHS
-      string " ="
-      newline
-      indentedBlock $ pretty hfbRHS
 #elif MIN_VERSION_ghc_lib_parser(9,4,1)
 prettyHsExpr (RecordUpd _ name fields) = hor <-|> ver
   where