remove overlapping pattern catch-all

Author: layus

src/Nix/Pretty.hs

@@ -320,7 +320,6 @@ valueToExpr = iterNValue (\_ _ -> thk) phi
   phi (NVClosure' _ _   ) = Fix . NSym $ "<closure>"
   phi (NVPath' p        ) = Fix $ NLiteralPath p
   phi (NVBuiltin' name _) = Fix . NSym $ "builtins." <> pack name
-  phi _                   = error "Pattern synonyms foil completeness check"
 
   mkStr ns = Fix $ NStr $ DoubleQuoted [Plain (stringIgnoreContext ns)]
 
@@ -396,4 +395,3 @@ printNix = iterNValue (\_ _ -> thk) phi
   phi NVClosure'{}        = "<<lambda>>"
   phi (NVPath' fp       ) = fp
   phi (NVBuiltin' name _) = "<<builtin " <> name <> ">>"
-  phi _                   = error "Pattern synonyms foil completeness check"

src/Nix/XML.hs

@@ -61,7 +61,6 @@ toXML = runWithStringContext . fmap pp . iterNValue (\_ _ -> cyc) phi
       pure $ Element (unqual "function") mempty (paramsXML p) Nothing
     NVPath' fp        -> pure $ mkElem "path" "value" fp
     NVBuiltin' name _ -> pure $ mkElem "function" "name" name
-    _                 -> error "Pattern synonyms mask coverage"
 
 mkElem :: String -> String -> String -> Element
 mkElem n a v = Element (unqual n) [Attr (unqual a) v] mempty Nothing