diagnosticsHTML :: Language -> FilePath -> Erring H.Html
diagnosticsHTML (Language _ _ _ lr _) p = do
        src <- liftIO $ BS.readFile p
        tokens <- lr p src
        tokensPage <- liftIO $ renderTokens p tokens
        return $ renderPage tokensPage
diagnosticsHTML :: Language -> FilePath -> Erring H.Html
diagnosticsHTML (Language _ _ _ lr _) p = do
        src <- liftIO $ BS.readFile p
        tokens <- lr p src
        tokensPage <- liftIO $ renderTokens p tokens
        return $ renderPage tokensPage
diagnosticsHTML (Language _ _ _ lr _) p = do
        src <- liftIO $ BS.readFile p
        tokens <- lr p src
        tokensPage <- liftIO $ renderTokens p tokens
        return $ renderPage tokensPage