Mirrors/stylix
2
0
Fork 0
mirror of https://github.com/danth/stylix synced 2025-02-16 21:38:40 +00:00
Code Issues Projects Releases Packages Wiki Activity

Rename Haskell files 🚚

Browse source
This commit is contained in:
Daniel Thwaites 2021-10-18 16:40:18 +01:00
parent 8ef21bcd10
commit 238366d8e0
No known key found for this signature in database
GPG key ID: D8AFC4BF05670F9D
4 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
flake.nix
View file

@ -17,8 +17,8 @@
name = "palette-generator";
src = ./palette-generator;
buildInputs = [ ghc ];
buildPhase = "ghc -O -threaded -Wall Main.hs";
installPhase = "install -D Main $out/bin/palette-generator";
buildPhase = "ghc -O -threaded -Wall Stylix/Main.hs";
installPhase = "install -D Stylix/Main $out/bin/palette-generator";
};
palette-generator-app = utils.lib.mkApp {

2
palette-generator/RGBHSV.hs → palette-generator/Data/Colour.hs
View file

@ -1,4 +1,4 @@
module RGBHSV ( RGB(..), HSV(..), rgbToHsv, hsvToRgb ) where
module Data.Colour ( RGB(..), HSV(..), rgbToHsv, hsvToRgb ) where
import Data.Fixed ( mod' )

4
palette-generator/Bucket.hs → palette-generator/Stylix/Bucket.hs
View file

@ -1,6 +1,6 @@
{-# LANGUAGE ScopedTypeVariables #-}
module Bucket
module Stylix.Bucket
( Bucket
, emptyBucket
, insertToBucket
@ -12,9 +12,9 @@ module Bucket
, makeBuckets'
) where
import Data.Colour ( HSV(HSV) )
import Data.Map ( Map )
import qualified Data.Map as Map
import RGBHSV ( HSV(HSV) )
data Bucket a = Bucket Int a a a

4
palette-generator/Main.hs → palette-generator/Stylix/Main.hs
View file

@ -1,9 +1,9 @@
import Bucket ( Bucket, bucketAverage, bucketSize, makeBuckets' )
import Codec.Picture ( DynamicImage, Image(imageWidth, imageHeight), PixelRGB8(PixelRGB8), convertRGB8, pixelAt, readImage )
import Data.Bifunctor ( second )
import Data.Colour ( HSV(HSV), RGB(RGB), hsvToRgb, rgbToHsv )
import Data.List ( sortOn )
import Data.Word ( Word8 )
import RGBHSV ( HSV(HSV), RGB(RGB), hsvToRgb, rgbToHsv )
import Stylix.Bucket ( Bucket, bucketAverage, bucketSize, makeBuckets' )
import System.Environment ( getArgs )
import System.Exit ( die )
import Text.JSON ( JSObject, encode, toJSObject )