From d29d951cf8c5558511830a85bb91ab030711b7e7 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 17 Dec 2024 20:34:31 +0100
Subject: ignore nulls in types
---
autotypes/app/Main.hs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
(limited to 'autotypes/app')
diff --git a/autotypes/app/Main.hs b/autotypes/app/Main.hs
index d9fa7f4..5ebb30d 100644
--- a/autotypes/app/Main.hs
+++ b/autotypes/app/Main.hs
@@ -3,6 +3,7 @@ module Main where
import AutoTypes.Unify as U
import Data.Aeson (Value, decodeFileStrict', encode)
import qualified Data.ByteString.Lazy as B
+import Data.Maybe
import System.Environment (getArgs)
import System.FilePath (takeFileName)
@@ -10,7 +11,7 @@ main :: IO ()
main = do
filePaths <- getArgs
types <-
- mapM
+ mapMaybeM
( \filePath -> do
Just value <- decodeFileStrict' filePath
pure (U.fromJson value)
@@ -25,3 +26,5 @@ main = do
)
)
)
+
+mapMaybeM = (fmap catMaybes .) . mapM
--
cgit v1.2.3