From 6a2eec98d9f5c3f5d735042f0d7bb65d0dbb3323 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Wed, 14 Sep 2022 22:02:18 +0100
Subject: Eliminate headFS, use unconsFS instead

A small step towards #22185 to avoid partial functions + safe implementation
of `startsWithUnderscore`.
---
 compiler/GHC/Data/FastString.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'compiler/GHC/Data/FastString.hs')

diff --git a/compiler/GHC/Data/FastString.hs b/compiler/GHC/Data/FastString.hs
index 98ca34c249..483d40cca1 100644
--- a/compiler/GHC/Data/FastString.hs
+++ b/compiler/GHC/Data/FastString.hs
@@ -82,7 +82,6 @@ module GHC.Data.FastString
         lengthFS,
         nullFS,
         appendFS,
-        headFS,
         concatFS,
         consFS,
         nilFS,
@@ -609,11 +608,6 @@ appendFS fs1 fs2 = mkFastStringShortByteString
 concatFS :: [FastString] -> FastString
 concatFS = mkFastStringShortByteString . mconcat . map fs_sbs
 
-headFS :: FastString -> Char
-headFS fs
-  | SBS.null $ fs_sbs fs = panic "headFS: Empty FastString"
-headFS fs = head $ unpackFS fs
-
 consFS :: Char -> FastString -> FastString
 consFS c fs = mkFastString (c : unpackFS fs)
 
-- 
cgit v1.2.1