Eliminate EStringListNF

Author: krame505

src/comp/Error.hs

@@ -1004,7 +1004,6 @@ data ErrMsg =
         | EModuleUndet
         | EModuleUndetNoMatch
         | EStringNF String
-        | EStringListNF String
         | ENoNF String String
         | EHasImplicit String
         | EModPortHasImplicit String String
@@ -3944,9 +3943,6 @@ getErrorText (WRuleUndetPred is_meth rule poss) =
               nest 4 (vcat (map (text . prPosition) poss))
     )
 
-getErrorText (EStringListNF s) =
-    (Generate 129, empty, s2par ("Not a compile time string list: " ++ s))
-
 
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------

src/comp/IExpand.hs

@@ -2130,7 +2130,7 @@ evalStringList e = do
       else if i == idPrimChr then return ([], getIExprPosition e')
       else internalError ("evalStringList con: " ++ show i)
     _ -> do e'' <- unheapAll e'
-            errG (getIExprPosition e', EStringListNF (ppString e'))
+            eNoNF e''
 
 -----------------------------------------------------------------------------