From c50b16610f089e612df3474cebde3b4dbeecb14a Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 1 Aug 2024 05:30:00 +0300 Subject: [PATCH] wip --- hbs2-cli/lib/HBS2/CLI/Run/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs b/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs index f4199a36..842723eb 100644 --- a/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs +++ b/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs @@ -600,7 +600,7 @@ internalEntries = do entry $ bindMatch "parse-top" $ \case [SymbolVal w, LitStrVal s] -> do - pure $ parseTop s & either (const nil) (mkList . fmap (mkForm w . List.singleton) . fmap fixContext) + pure $ parseTop s & either (const nil) (mkForm w . fmap fixContext) [LitStrVal s] -> do pure $ parseTop s & either (const nil) (mkList . fmap fixContext)