Skip to content

Commit

Permalink
Put Last modified message inside footer tag (#2922)
Browse files Browse the repository at this point in the history
This is needed so that the color of the text is set according to the
theme.

Before

![image](https://github.com/user-attachments/assets/d8a67cd1-8fef-4530-a3f8-75b755c6481b)

After

![image](https://github.com/user-attachments/assets/ae8e1ac7-9d88-4e0c-aabc-31d7c2ffb1a5)
  • Loading branch information
janmasrovira authored Aug 1, 2024
1 parent fe07c05 commit d3f57a6
Showing 1 changed file with 9 additions and 7 deletions.
16 changes: 9 additions & 7 deletions src/Juvix/Compiler/Backend/Html/Translation/FromTyped/Source.hs
Original file line number Diff line number Diff line change
Expand Up @@ -187,13 +187,15 @@ genModuleHtml o = do

formattedTime :: Sem r Html
formattedTime =
return $
Html.span . toHtml $
"Last modified on "
<> formatTime
defaultTimeLocale
"%Y-%m-%d %-H:%M %Z"
(o ^. genModuleHtmlArgsUTC)
return
. Html.footer
. Html.pre
. toHtml
$ "Last modified on "
<> formatTime
defaultTimeLocale
"%Y-%m-%d %-H:%M %Z"
(o ^. genModuleHtmlArgsUTC)

justCode :: Sem r Html
justCode =
Expand Down

0 comments on commit d3f57a6

Please sign in to comment.