Update Main.elm

elm-land · Jun 14, 2023 · 7fa0900 · 7fa0900
1 parent 5f19962
commit 7fa0900
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/features/html-to-elm/src/Main.elm b/src/features/html-to-elm/src/Main.elm
@@ -36,8 +36,7 @@ init html =
     )
 
 
-
-fromHtmlToElm : String -> Result String String
+fromHtmlToElm : String -> Maybe String
 fromHtmlToElm html =
     case
         html
@@ -49,10 +48,10 @@ fromHtmlToElm html =
             |> Result.map toElmString
     of
         Ok elmCode ->
-            Ok elmCode
+            Just elmCode
 
         Err problem ->
-            Err (Debug.toString problem)
+            Nothing
 
 
 toElmString : List Html.Parser.Node -> String