All compile errors fixed, but now there's a weird NaN. The wonders never cease

lib/Petzval/Optics.hs

@@ -90,9 +90,9 @@ specialize :: (Material mat) => Double -> [Element mat a] -> [Element ConstMat a
 specialize wavelength = (each.material) %~ (ConstMat . iorAtWavelength wavelength)
 -- | Annotate each material with the incoming index of refraction
 bake :: (Material mat) => Double -> [Element mat a] -> [Element BakedIOR a]
-bake wavelength mat =
+bake wavelength system =
   snd $
   mapAccumLOf (each.material) (\n1 (ConstMat n2) -> (n2, BakedIOR n1 n2)) 1 $
-  specialize wavelength mat
+  specialize wavelength system