diff options
| author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-24 13:25:13 +0000 |
|---|---|---|
| committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-24 13:25:13 +0000 |
| commit | a6cd2da20801ac860538e536913b84d8b2f8371d (patch) | |
| tree | 28a4f0a3e0304b2e1487d0d94a476faf1117a094 | |
| parent | d3ebdc49eea48d1968a87c3da61da36477390dc4 (diff) | |
| download | median-cut-a6cd2da20801ac860538e536913b84d8b2f8371d.tar.gz median-cut-a6cd2da20801ac860538e536913b84d8b2f8371d.zip | |
Simplifying types
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 826f94b..647885c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -139,10 +139,8 @@ recSplitGeneral dFun dCut n d c = dCut (PFMColour 1 1 1) cut a nrec = bbimap (recSplitGeneral dFun dCut (n - 1)) (d1, d2) apply (f, g) (a', c') = (f a', g c') -recSplit :: Int -> [[Double]] -> [[PFMColour]] -> [[PFMColour]] +recSplitRadiance, recSplit :: Int -> [[Double]] -> [[PFMColour]] -> [[PFMColour]] recSplit = recSplitGeneral drawCentroid drawCut - -recSplitRadiance :: Int -> [[Double]] -> [[PFMColour]] -> [[PFMColour]] recSplitRadiance = recSplitGeneral drawCentroidBlack (\_ _ -> id) generateCuts |