Minor cleanup.

2023-07-29 08:57:58 -07:00
parent e9f971460f
commit af882e2be4
2 changed files with 4 additions and 2 deletions
@@ -184,9 +184,9 @@ text_to_expression text = parse (tokenize text)

 doit text =
    case text_to_expression text of
-        Err msg -> Err msg
        Ok ast ->
            case joy [] ast of
-                Err msg -> Err msg
                Ok expr -> Ok (joyExpressionToString expr)
+                Err msg -> Err msg
+        Err msg -> Err msg