Scrollbar.purs 406 Bytes
Newer Older
arturo's avatar
arturo committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
module Gargantext.Hooks.Scrollbar
  ( useScrollbar
  ) where

import Gargantext.Prelude

import Effect (Effect)
import Reactix as R

foreign import disableScroll :: Effect Unit
foreign import enableScroll :: Effect Unit


type Output =
  ( disableScroll :: Effect Unit
  , enableScroll  :: Effect Unit
  )

useScrollbar :: R.Hooks (Record Output)
useScrollbar = pure
  { disableScroll
  , enableScroll
  }