From fcffa2e1bcd94ca2f6ddc52a886a6f0eba18caf0 Mon Sep 17 00:00:00 2001
From: Yann Herklotz Grave <git@yannherklotzgrave.com>
Date: Wed, 20 Feb 2019 17:03:44 +0000
Subject: Remove duplicate functions and update library

---
 src/Main.hs | 7 -------
 stack.yaml  | 2 +-
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index a2fb368..c7c0fbf 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -48,10 +48,6 @@ circleImage :: ((Int, Int) -> PFMColour) -> Int -> PFMImage
 circleImage f s = PFMImage s s $ toCircle f ((s - 1) `div` 2)
   [ [ (y, x) | x <- [0..s-1] ] | y <- reverse [0..s-1] ]
 
-revColour :: PFMImage -> PFMImage
-revColour (PFMImage w h i) =
-  PFMImage w h $ reverse i
-
 bench :: IO ()
 bench = do
   im <- B.readFile "data/urbanEM_latlong.pfm"
@@ -77,9 +73,6 @@ fromImageF :: (Int, Int) -> PFMImage -> PFMColour
 fromImageF (y, x) (PFMImage w h c) =
   c !! y !! x
 
-gamma :: (Floating a) => a -> a -> a
-gamma g m = m ** (1 / g)
-
 myForkIO :: IO () -> IO (MVar ())
 myForkIO io = do
   mvar <- newEmptyMVar
diff --git a/stack.yaml b/stack.yaml
index da187f0..b7fa054 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -39,7 +39,7 @@ packages:
 # (e.g., acme-missiles-0.3)
 extra-deps:
 - git: https://github.com/ymherklotz/pfm.git
-  commit: 733de0cfaac119c0e1a309014a1da4a3aeaad01d
+  commit: 8f5147d0bf8fefff89d880288053b2d1b13de849
 
 # Override default flag values for local packages and extra-deps
 # flags: {}
-- 
cgit