feat: update to purs 0.14

Author: Serhii Khoma

src/Language/PS/CST/Printers.purs

@@ -31,7 +31,7 @@ printModule (Module { moduleName, imports, exports, declarations }) =
     , printDeclarations declarations
     ] <> break
 
-printDeclarations :: Array (Declaration) -> Doc Void
+printDeclarations :: Array Declaration -> Doc Void
 printDeclarations declarations = printAndConditionallyAddNewlinesBetween shouldBeNoNewlineBetweenDeclarations printDeclaration declarations
 
 printComments :: Comments -> Doc Void

src/Language/PS/CST/Printers/Utils.purs

@@ -3,20 +3,19 @@ module Language.PS.CST.Printers.Utils where
 import Prelude
 
 import Data.Array.NonEmpty (NonEmptyArray)
-import Data.Either (fromRight)
 import Data.Foldable (class Foldable)
 import Data.List (List(..), (:))
 import Data.List (fromFoldable) as List
 import Data.Maybe (Maybe(..))
 import Data.Newtype (class Newtype, unwrap)
-import Data.String.Regex (Regex, regex)
+import Data.String.Regex (Regex)
 import Data.String.Regex as Regex
+import Data.String.Regex.Unsafe as Regex
 import Data.String.Regex.Flags as RegexFlags
 import Dodo (Doc, bothNotEmpty, break, enclose, encloseEmptyAlt, flexAlt, flexGroup, foldWithSeparator, indent, softBreak, space, spaceBreak, text, (<+>))
 import Language.PS.CST.ReservedNames (appendUnderscoreIfReserved, isReservedName)
 import Language.PS.CST.Types.Declaration (Declaration(..), Expr(..), InstanceBinding(..), LetBinding(..))
 import Language.PS.CST.Types.Leafs (Label(..), ModuleName(..), ProperName, ProperNameType_ConstructorName)
-import Partial.Unsafe (unsafePartial)
 
 -- | >>> dquotes "·"
 -- "·"
@@ -107,7 +106,7 @@ labelNeedsQuotes (Label name) =
 
 unquotedLabelRegex :: Regex
 unquotedLabelRegex =
-  unsafePartial $ fromRight $ regex "^[a-z][A-Za-z0-9_]*$" RegexFlags.noFlags
+  Regex.unsafeRegex "^[a-z][A-Za-z0-9_]*$" RegexFlags.noFlags
 
 unwrapText :: forall a. Newtype a String => a -> Doc Void
 unwrapText = text <<< appendUnderscoreIfReserved <<< unwrap