13 lines
321 B
Haskell
13 lines
321 B
Haskell
module Dodge.ScrollValue (updateScrollTestValue) where
|
|
|
|
import Dodge.Data.Input
|
|
import LensHelp
|
|
|
|
updateScrollTestValue :: Input -> Input
|
|
updateScrollTestValue theinput =
|
|
theinput & scrollTestFloat +~ theamount
|
|
& scrollTestInt +~ i
|
|
where
|
|
i = theinput ^. scrollAmount
|
|
theamount = fromIntegral i / 100
|