| 123456789101112131415 |
- module Sidebar.Utils (whenC, moveElem) where
- import Data.Array ((!!), insertAt, deleteAt) as A
- import Data.Maybe (Maybe)
- import Halogen (ClassName(..))
- import Prelude (bind, (>=>))
- whenC :: Boolean -> ClassName -> ClassName
- whenC b c = if b then c else ClassName ""
- moveElem :: forall a. Int -> Int -> Array a -> Maybe (Array a)
- moveElem from to arr = do
- elem <- arr A.!! from
- (A.deleteAt from >=> A.insertAt to elem) arr
|
