diff options
Diffstat (limited to 'src/Wavefront/Lex.hs')
-rw-r--r-- | src/Wavefront/Lex.hs | 94 |
1 files changed, 47 insertions, 47 deletions
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 | |||
110 | } | 110 | } |
111 | 111 | ||
112 | 112 | ||
113 | nullBuilder :: Applicative m => m () -> ObjBuilder m | 113 | nullBuilder :: Applicative m => ObjBuilder m |
114 | nullBuilder def = ObjBuilder | 114 | nullBuilder = ObjBuilder |
115 | { vertex = \vs -> def | 115 | { vertex = \vs -> pure () |
116 | , vertexT = \vs -> def | 116 | , vertexT = \vs -> pure () |
117 | , vertexN = \vs -> def | 117 | , vertexN = \vs -> pure () |
118 | , vertexP = \vs -> def | 118 | , vertexP = \vs -> pure () |
119 | , face = \is -> def | 119 | , face = \is -> pure () |
120 | , line = \is -> def | 120 | , line = \is -> pure () |
121 | , cstype = \isRat typ -> def | 121 | , cstype = \isRat typ -> pure () |
122 | , curv2 = \is -> def | 122 | , curv2 = \is -> pure () |
123 | , curv = \u0 v0 is -> def | 123 | , curv = \u0 v0 is -> pure () |
124 | , parm = \uv is -> def | 124 | , parm = \uv is -> pure () |
125 | , specialPoints = \is -> def | 125 | , specialPoints = \is -> pure () |
126 | , endFreeForm = def | 126 | , endFreeForm = pure () |
127 | , ctech = \approx -> def | 127 | , ctech = \approx -> pure () |
128 | , stech = \approx -> def | 128 | , stech = \approx -> pure () |
129 | , deg = \is -> def | 129 | , deg = \is -> pure () |
130 | , surf = \u0 u1 v0 v1 ts -> def | 130 | , surf = \u0 u1 v0 v1 ts -> pure () |
131 | , trim = \ss -> def | 131 | , trim = \ss -> pure () |
132 | , hole = \ss -> def | 132 | , hole = \ss -> pure () |
133 | , specialCurves = \ss -> def | 133 | , specialCurves = \ss -> pure () |
134 | , equivalentCurves = \ccs -> def | 134 | , equivalentCurves = \ccs -> pure () |
135 | , groups = \gs -> def | 135 | , groups = \gs -> pure () |
136 | , smoothingGroup = \sg -> def | 136 | , smoothingGroup = \sg -> pure () |
137 | , mergingGroup = \mg δ -> def | 137 | , mergingGroup = \mg δ -> pure () |
138 | , usemtl = \mtl -> def | 138 | , usemtl = \mtl -> pure () |
139 | , deprecated_cdc = \is -> def | 139 | , deprecated_cdc = \is -> pure () |
140 | , deprecated_cdp = \is -> def | 140 | , deprecated_cdp = \is -> pure () |
141 | , deprecated_bzp = \is -> def | 141 | , deprecated_bzp = \is -> pure () |
142 | , deprecated_bsp = \is -> def | 142 | , deprecated_bsp = \is -> pure () |
143 | , mtllib = \fns -> def | 143 | , mtllib = \fns -> pure () |
144 | , objectName = \obn -> def | 144 | , objectName = \obn -> pure () |
145 | , bmat = \uv fs -> def | 145 | , bmat = \uv fs -> pure () |
146 | , step = \is -> def | 146 | , step = \is -> pure () |
147 | , points = \is -> def | 147 | , points = \is -> pure () |
148 | , usemap = \map -> def | 148 | , usemap = \map -> pure () |
149 | , maplib = \fns -> def | 149 | , maplib = \fns -> pure () |
150 | , c_interp = \b -> def | 150 | , c_interp = \b -> pure () |
151 | , d_interp = \b -> def | 151 | , d_interp = \b -> pure () |
152 | , trace_obj = \obj -> def | 152 | , trace_obj = \obj -> pure () |
153 | , shadow_obj = \obj -> def | 153 | , shadow_obj = \obj -> pure () |
154 | , deprecated_res = \is -> def | 154 | , deprecated_res = \is -> pure () |
155 | , bevel = \b -> def | 155 | , bevel = \b -> pure () |
156 | , lod = \lvl -> def | 156 | , lod = \lvl -> pure () |
157 | , call = \obj args -> def | 157 | , call = \obj args -> pure () |
158 | , command = \b cmd -> def *> pure L.empty | 158 | , command = \b cmd -> pure L.empty |
159 | , badToken = \bs -> def | 159 | , badToken = \bs -> pure () |
160 | } | 160 | } |
161 | 161 | ||
162 | 162 | ||