Remove unused functions

mihaimaruseac · Nov 10, 2023 · 3bb4270 · 3bb4270
1 parent ae6fdf6
commit 3bb4270
Showing 1 changed file with 0 additions and 20 deletions.
diff --git 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