From f3d1dd211b47d784b562a2251c5cd090ef06f8e9 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 14 Jun 2019 20:45:38 -0400 Subject: Removed nullBuilder agument (obsoleted by Rank2.fmap). --- src/Wavefront/Lex.hs | 94 ++++++++++++++++++++++++++-------------------------- 1 file changed, 47 insertions(+), 47 deletions(-) (limited to 'src/Wavefront/Lex.hs') diff --git a/src/Wavefront/Lex.hs b/src/Wavefront/Lex.hs index 78c6f1d..05a6595 100644 --- a/src/Wavefront/Lex.hs +++ b/src/Wavefront/Lex.hs @@ -110,53 +110,53 @@ instance Rank2.Functor ObjBuilder where } -nullBuilder :: Applicative m => m () -> ObjBuilder m -nullBuilder def = ObjBuilder - { vertex = \vs -> def - , vertexT = \vs -> def - , vertexN = \vs -> def - , vertexP = \vs -> def - , face = \is -> def - , line = \is -> def - , cstype = \isRat typ -> def - , curv2 = \is -> def - , curv = \u0 v0 is -> def - , parm = \uv is -> def - , specialPoints = \is -> def - , endFreeForm = def - , ctech = \approx -> def - , stech = \approx -> def - , deg = \is -> def - , surf = \u0 u1 v0 v1 ts -> def - , trim = \ss -> def - , hole = \ss -> def - , specialCurves = \ss -> def - , equivalentCurves = \ccs -> def - , groups = \gs -> def - , smoothingGroup = \sg -> def - , mergingGroup = \mg δ -> def - , usemtl = \mtl -> def - , deprecated_cdc = \is -> def - , deprecated_cdp = \is -> def - , deprecated_bzp = \is -> def - , deprecated_bsp = \is -> def - , mtllib = \fns -> def - , objectName = \obn -> def - , bmat = \uv fs -> def - , step = \is -> def - , points = \is -> def - , usemap = \map -> def - , maplib = \fns -> def - , c_interp = \b -> def - , d_interp = \b -> def - , trace_obj = \obj -> def - , shadow_obj = \obj -> def - , deprecated_res = \is -> def - , bevel = \b -> def - , lod = \lvl -> def - , call = \obj args -> def - , command = \b cmd -> def *> pure L.empty - , badToken = \bs -> def +nullBuilder :: Applicative m => ObjBuilder m +nullBuilder = ObjBuilder + { vertex = \vs -> pure () + , vertexT = \vs -> pure () + , vertexN = \vs -> pure () + , vertexP = \vs -> pure () + , face = \is -> pure () + , line = \is -> pure () + , cstype = \isRat typ -> pure () + , curv2 = \is -> pure () + , curv = \u0 v0 is -> pure () + , parm = \uv is -> pure () + , specialPoints = \is -> pure () + , endFreeForm = pure () + , ctech = \approx -> pure () + , stech = \approx -> pure () + , deg = \is -> pure () + , surf = \u0 u1 v0 v1 ts -> pure () + , trim = \ss -> pure () + , hole = \ss -> pure () + , specialCurves = \ss -> pure () + , equivalentCurves = \ccs -> pure () + , groups = \gs -> pure () + , smoothingGroup = \sg -> pure () + , mergingGroup = \mg δ -> pure () + , usemtl = \mtl -> pure () + , deprecated_cdc = \is -> pure () + , deprecated_cdp = \is -> pure () + , deprecated_bzp = \is -> pure () + , deprecated_bsp = \is -> pure () + , mtllib = \fns -> pure () + , objectName = \obn -> pure () + , bmat = \uv fs -> pure () + , step = \is -> pure () + , points = \is -> pure () + , usemap = \map -> pure () + , maplib = \fns -> pure () + , c_interp = \b -> pure () + , d_interp = \b -> pure () + , trace_obj = \obj -> pure () + , shadow_obj = \obj -> pure () + , deprecated_res = \is -> pure () + , bevel = \b -> pure () + , lod = \lvl -> pure () + , call = \obj args -> pure () + , command = \b cmd -> pure L.empty + , badToken = \bs -> pure () } -- cgit v1.2.3