Replace helper function and fix some warnings

bench/Main.hs

@@ -5,9 +5,7 @@ import Criterion.Main (defaultMain)
 import Data.List (unfoldr)
 import GHC.Word
 import GenQuadTreeTH (zipWithBinFunc4)
-import GenTH
 import Helpers
-import Matrix
 import ParseMTX
 import QuadTree
 import System.Random

src/GenTH.hs

@@ -5,7 +5,7 @@
 module GenTH where
 
 import ListTH
-import MatrixMapNTH
+import MatrixMapNTH ()
 
 -- $(genMaps 10)
 

src/Helpers.hs

@@ -6,6 +6,14 @@ isPowOf2 k = logBase 2 size == truncated
         size = fromIntegral k :: Double
         truncated = toEnum (truncate $ logBase 2 size) :: Double
 
+readSpecDouble :: String -> Double
+readSpecDouble a
+    | head a == '.' = read ('0' : a)
+    | head a == '-' && (a !! 1) == '.' = read ("-0" ++ tail a)
+    | head a == 'e' = read ('1' : a)
+    | head a == '-' && (a !! 1) == 'e' = read ("-1" ++ tail a)
+    | otherwise = read a
+
 takeFst :: (a, b, c) -> a
 takeFst (a, _, _) = a
 

src/ParseMTX.hs

@@ -7,13 +7,7 @@ import System.IO
 
 data MtxSparseFormat a = Mtx {values :: [(Int, Int, a)], linesCount :: Int, columnCount :: Int} deriving (Show)
 
-readSpecDouble :: String -> Double
-readSpecDouble a
-    | head a == '.' = read ('0' : a)
-    | head a == '-' && (a !! 1) == '.' = read ("-0" ++ tail a)
-    | head a == 'e' = read ('1' : a)
-    | head a == '-' && (a !! 1) == 'e' = read ("-1" ++ tail a)
-    | otherwise = read a
+
 
 generateVoid :: (Num a) => (Int, Int, c) -> [[a]]
 generateVoid (mLines, columns, _) = replicate mLines (replicate columns 0)