12 lines
289 B
Haskell
12 lines
289 B
Haskell
module Dodge.ScrollValue 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
|