1 files changed, 1 insertions(+), 1 deletions(-)

M src/Main.hs

@@ 112,7 112,7 @@ lowerToks _ = CSSCond.B False
 
 renderLayout atlases drawText (LayoutSpan ((x, y), _) font self)
     | Just atlas <- M.lookup (pattern font, fontSize font) atlases = do
-        drawText' <- drawText $ fragmentGlyphs self
+        drawText' <- drawText atlas $ fragmentGlyphs self
         -- FIXME Allow CSS to set the colour.
         liftIO $ arDraw drawText' [TextTransformMultiply $ V4 0 0 0 1]
                         (V2 (fromEnum x) (fromEnum y))