From ff16557e3461ac7d1dae9af4e47649459b4d1dbf Mon Sep 17 00:00:00 2001
From: Ken Micklas <kmicklas@gmail.com>
Date: Sat, 17 Nov 2018 14:56:59 -0500
Subject: [PATCH] Add principledStringIgnoreContext

---
 src/Nix/String.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Nix/String.hs b/src/Nix/String.hs
index 419a29e..691da62 100644
--- a/src/Nix/String.hs
+++ b/src/Nix/String.hs
@@ -9,6 +9,7 @@ module Nix.String (
   , stringHasContext
   , principledIntercalateNixString
   , hackyStringIgnoreContextMaybe
+  , principledStringIgnoreContext
   , hackyStringIgnoreContext
   , hackyMakeNixStringWithoutContext
   , principledMakeNixStringWithoutContext
@@ -92,6 +93,10 @@ hackyStringIgnoreContextMaybe (NixString s c) | null c = Just s
                                 | otherwise = Nothing
 
 -- | Extract the string contents from a NixString even if the NixString has an associated context
+principledStringIgnoreContext :: NixString -> Text
+principledStringIgnoreContext (NixString s _) = s
+
+-- | Extract the string contents from a NixString even if the NixString has an associated context 
 hackyStringIgnoreContext :: NixString -> Text
 hackyStringIgnoreContext (NixString s _) = s