Skip to content

Commit

Permalink
Put Last modified message inside footer tag (#2922)
Browse files Browse the repository at this point in the history
  • 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.