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

M src/Main.hs

@@ 92,12 92,6 @@ renderLayout atlases drawText (LayoutSpan self)
   where
     (font, _) = fragmentFont self
     ((x, y), VizStyle color) = layoutGetInner $ LayoutSpan self
-{-renderLayout atlases drawText (LayoutSpan ((x, y), VizStyle color) font self)
-    | Just atlas <- M.lookup (pattern font, fontSize font) atlases = do
-        drawText' <- drawText atlas $ fragmentGlyphs self
-        -- FIXME Switch from temp to inherit for inline caller-properties.
-        liftIO $ arDraw drawText' [TextTransformMultiply color]
-                        (V2 (fromEnum x) (fromEnum y))-} -- FIXME: New API!
 renderLayout atlases drawText node = do
     layoutGetChilds node `forM` renderLayout atlases drawText
     return ()


@@ 179,7 173,7 @@ main = do
     args <- getArgs
     let url = case args of
             (url:_) -> url
-            [] -> "https://git.argonaut-constellation.org/~alcinnz/CatTrap"
+            [] -> "https://haphaestus.org/"
     sess <- newSession
     ref <- initReferer
     xml <- fetchDocument sess ref $ fromMaybe nullURI $ parseURIReference url