Hackage :: [Package]

swizzle-modify: Swizzle modify functions

[ bsd3, data, library ] [ Propose Tags ] [ Report a vulnerability ]

Downloads

Maintainer's Corner

Package maintainers

For package maintainers and hackage trustees

Candidates

  • No Candidates
Versions [RSS] 0.1.0.0
Change log CHANGELOG.md
Dependencies base (>=4.7 && <5), swizzle (<1), swizzle-set (<1), template-haskell (<3) [details]
License BSD-3-Clause
Copyright (c) 2025 Yoshikuni Jujo
Author Yoshikuni Jujo
Maintainer yoshikuni.jujo@gmail.com
Category Data
Home page https://github.com/YoshikuniJujo/swizzle-modify#readme
Bug tracker https://github.com/YoshikuniJujo/swizzle-modify/issues
Source repo head: git clone https://github.com/YoshikuniJujo/swizzle-modify
Uploaded by YoshikuniJujo at 2025-01-27T07:53:45Z
Distributions Stackage:0.1.0.0
Downloads 15 total (15 in the last 30 days)
Rating (no votes yet) [estimated by Bayesian average]
Your Rating
  • λ
  • λ
  • λ
Status Docs available [build log]
Last success reported on 2025-01-27 [all 1 reports]

Readme for swizzle-modify-0.1.0.0

[back to package description]

swizzle-modify

{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Lib where

import Data.SwizzleModify qualified as SwzM
import Data.SwizzleModify.TH

nums :: (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
nums = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

foo :: (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
foo = SwzM.ywv ((* 100), (* 200), (* 300)) nums -- (0, 100, 2, 600, 1200, 5, 6, 7, 8, 9)

bar :: (Int, Int, String, String, Int, Int, Int, Int, Int, Int)
bar = SwzM.zw (show, show) nums -- (0, 1, "2", "3", 4, 5, 6, 7, 8, 9)

swizzleModify "" "ztsq"

baz :: (Int, Int, String, Int, Int, Int, Int, String, Int, Char)
baz = ztsq (show, (* 100), (`replicate` 'c'), const 'q') nums
	-- (0, 1, "2", 3, 4, 5, 600, "ccccccc", 8, 'q')

{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE GeneralizedNewtypeDeriving, DeriveGeneric #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Try.Color where

import GHC.Generics
import Data.SwizzleModify qualified as SwzM
import Data.Swizzle.Class qualified as Swz
import Data.SwizzleSet.Class qualified as SwzS

newtype Alpha = Alpha Double deriving (Show, Num, Fractional)
newtype Red = Red Double deriving (Show, Num, Fractional)
newtype Green = Green Double deriving (Show, Num, Fractional)
newtype Blue = Blue Double deriving (Show, Num, Fractional)

data Argb = Argb Alpha Red Green Blue deriving (Show, Generic)

instance Swz.Swizzle1 Argb where type X Argb = Alpha
instance Swz.Swizzle2 Argb where type Y Argb = Red
instance Swz.Swizzle3 Argb where type Z Argb = Green
instance Swz.Swizzle4 Argb where type W Argb = Blue

instance SwzS.SwizzleSet1 Argb Alpha where type X Argb Alpha = Argb
instance SwzS.SwizzleSet2 Argb Red where type Y Argb Red = Argb
instance SwzS.SwizzleSet3 Argb Green where type Z Argb Green = Argb
instance SwzS.SwizzleSet4 Argb Blue where type W Argb Blue = Argb

sample :: Argb
sample = Argb 0.5 0.2 0.8 0.1

foo :: Argb
foo = SwzM.yw ((* 0.8), (* 0.6)) sample
	-- Argb (Alpha 0.5) (Red 0.16) (Green 0.8) (Blue 0.06)

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-}

module Try.Prefix where

import Data.SwizzleModify.TH

swizzleModify "modify" "wvtrq"

foo :: (Int, Int, Int, Int, Int, Int, String, Int, String, Char)
foo = modifyWvtrq ((* 100), (* 200), show, (`replicate` 'c'), const 'q')
	(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
	-- (0, 1, 2, 300, 800, 5, "6", 7, "cccccccc", 'q')