refactor: move updateLast to Utility module

Someone-s-out-there · Aug 6, 2021 · 624fe5e · 624fe5e
1 parent 4fab856
commit 624fe5e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/src/Taskell/Data/Utility.hs b/src/Taskell/Data/Utility.hs
@@ -0,0 +1,6 @@
+module Taskell.Data.Utility where
+
+updateLast :: (a -> a) -> [a] -> [a]
+updateLast _ [] = []
+updateLast f [k] = [f k]
+updateLast f (y : ys) = y : updateLast f ys
diff --git a/src/Taskell/UI/Draw/Modal/Help.hs b/src/Taskell/UI/Draw/Modal/Help.hs
@@ -16,6 +16,7 @@ import Taskell.UI.Theme          (taskCurrentAttr)
 import Control.Lens ((^.))
 import Taskell.Events.State.Types (mode)
 import qualified Taskell.Events.State.Types.Mode as M
+import Taskell.Data.Utility (updateLast)
 
 descriptions :: [([ActionType], Text)]
 descriptions =
@@ -73,14 +74,9 @@ help s = do
 
 applyScroll :: M.HelpScrollPosition -> [TWidget] -> [TWidget]
 applyScroll _ [] = []
-applyScroll sp list@(x:xs) =
+applyScroll sp (x:xs) =
   case sp of
     M.Top ->
       visible x : xs
     M.Bottom ->
       updateLast visible xs
-  where
-    updateLast :: (a -> a) -> [a] -> [a]
-    updateLast _ [] = []
-    updateLast f [k] = [f k]
-    updateLast f (y: ys) = y : updateLast f ys