Fix autoscroll

tablature-viewer · Jun 12, 2022 · 9ad49ae · 9ad49ae
1 parent 6a75f94
commit 9ad49ae
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/AppHtml.purs b/src/AppHtml.purs
@@ -63,13 +63,11 @@ render state = HH.div_
     ViewMode ->
       HH.div
         ( [ classString "tablatureViewer tablature"
+          , HP.ref refTablatureViewer
+          , HP.tabIndex 1
           ] <> clickNoMenuEvent
         )
-        [ HH.pre
-            [ HP.ref refTablatureViewer
-            , HP.tabIndex 1
-            ]
-            renderTablature
+        [ HH.pre_ renderTablature
         ]
     EditMode ->
       HH.textarea
@@ -380,7 +378,7 @@ getTablatureContainerHtmlElement = do
     SearchMode -> pure Nothing
 
 getTablatureContainerElement :: forall m. MonadEffect m => HaloT m (Maybe Element)
-getTablatureContainerElement = getTablatureContainerHtmlElement <#> \maybeHtmlElement -> maybeHtmlElement <#> toElement
+getTablatureContainerElement = getTablatureContainerHtmlElement <#> map toElement
 
 saveScrollTop :: forall m. MonadEffect m => HaloT m Unit
 saveScrollTop = do