Add error (undefined is bad)

X-R-G-B · Jan 10, 2024 · 8802916 · 8802916
1 parent 323b37c
commit 8802916
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lvtc/src/WatLike.hs b/lvtc/src/WatLike.hs
@@ -212,7 +212,7 @@ valueToWatLike (Character x) _ varsIndex =
         (varsIndex', indVar) = newIndex varsIndex
         ordChar = read (show (ord x)) :: Int32
         newDeclaration = Declaration ((show indVar, "Int"), Integer ordChar)
-valueToWatLike (StringView _) _ _ = undefined
+valueToWatLike (StringView _) _ _ = error "StringView not implemented for now"
 valueToWatLike Void _ varsIndex =
     (varsIndex', [newDeclaration], Var (show indVar))
     where