switch Doubles for Floats

Author: kubaneko

src/Distribution/Server/Features/PackageList.hs

@@ -92,7 +92,7 @@ data PackageItem = PackageItem {
     -- Hotness: a more heuristic way to sort packages. presently non-existent.
     --itemHotness :: Int
     -- heuristic way to sort packages
-    itemPackageRank :: !Double
+    itemPackageRank :: !Float
 }
 
 instance MemSize PackageItem where

src/Distribution/Server/Features/PackageRank.hs

@@ -37,31 +37,31 @@ import           Data.Maybe                     ( isNothing )
 import           Data.Ord                       ( comparing )
 import qualified Data.TarIndex                 as T
 import qualified Data.Time.Clock               as CL
-import           GHC.Float                      ( int2Double )
+import           GHC.Float                      ( int2Float )
 import           System.FilePath                ( isExtensionOf )
 import qualified System.IO                     as SIO
 
 data Scorer = Scorer
-  { maximum :: Double
-  , score   :: Double
+  { maximum :: Float
+  , score   :: Float
   }
   deriving Show
 
 instance Semigroup Scorer where
   (Scorer a b) <> (Scorer c d) = Scorer (a + b) (c + d)
 
-scorer :: Double -> Double -> Scorer
+scorer :: Float -> Float -> Scorer
 scorer maxim scr =
   if maxim >= scr then Scorer maxim scr else Scorer maxim maxim
 
-fracScor :: Double -> Double -> Scorer
+fracScor :: Float -> Float -> Scorer
 fracScor maxim frac = scorer maxim (maxim * frac)
 
-boolScor :: Double -> Bool -> Scorer
+boolScor :: Float -> Bool -> Scorer
 boolScor k True  = Scorer k k
 boolScor k False = Scorer k 0
 
-total :: Scorer -> Double
+total :: Scorer -> Float
 total (Scorer a b) = a / b
 
 major :: Num a => [a] -> a
@@ -74,13 +74,13 @@ patches :: Num a => [a] -> a
 patches (_ : _ : xs) = sum xs
 patches _            = 0
 
-numDays :: Maybe CL.UTCTime -> Maybe CL.UTCTime -> Double
+numDays :: Maybe CL.UTCTime -> Maybe CL.UTCTime -> Float
 numDays (Just first) (Just end) =
   fromRational $ toRational $ CL.diffUTCTime first end / fromRational
     (toRational CL.nominalDay)
 numDays _ _ = 0
 
-freshness :: [Version] -> CL.UTCTime -> Bool -> IO Double
+freshness :: [Version] -> CL.UTCTime -> Bool -> IO Float
 freshness [] _ _ = return 0
 freshness (x : xs) lastUpd app =
   daysPastExpiration
@@ -89,7 +89,7 @@ freshness (x : xs) lastUpd app =
   versionLatest = versionNumbers x
   daysPastExpiration =
     age >>= (\a -> return $ max 0 a - expectedUpdateInterval)
-  expectedUpdateInterval = int2Double
+  expectedUpdateInterval = int2Float
     (min (versionStabilityInterval versionLatest) $ length (x : xs))
   versionStabilityInterval v | patches v > 3 && major v > 0 = 700
                              | patches v > 3                = 450
@@ -145,13 +145,13 @@ rankIO vers recentDownloads maintainers docs env tarCache pkgs = do
     index <- documentIndex
     path  <- documentPath
     return $ liftM2 (,) path (join $ liftM2 T.lookup index path)
-  documentLines :: IO Double
+  documentLines :: IO Float
   documentLines = documentationEntr >>= filterLinesTar (const True)
-  srcLines :: IO Double
+  srcLines :: IO Float
   srcLines = packageEntr >>= filterLinesTar (isExtensionOf ".hs")
 
   filterLinesTar
-    :: (FilePath -> Bool) -> Maybe (FilePath, T.TarIndexEntry) -> IO Double
+    :: (FilePath -> Bool) -> Maybe (FilePath, T.TarIndexEntry) -> IO Float
   filterLinesTar f (Just (path, T.TarFileEntry offset)) =
     if f path then getLines path offset else return 0
   filterLinesTar f (Just (_, T.TarDir dir)) =
@@ -166,7 +166,7 @@ rankIO vers recentDownloads maintainers docs env tarCache pkgs = do
     case Tar.read header of
       (Tar.Next Tar.Entry { Tar.entryContent = Tar.NormalFile _ siz } _) -> do
         body <- BSL.hGet handle (fromIntegral siz)
-        return $ int2Double . length . BSL.split 10 $ body
+        return $ int2Float . length . BSL.split 10 $ body
       _ -> return 0
 
   documentPath = do
@@ -178,9 +178,9 @@ authorScore maintainers desc =
   boolScor 1 (not $ S.null $ author desc) <> maintScore
  where
   maintScore =
-    boolScor 3 (maintainers > 1) <> scorer 5 (int2Double maintainers)
+    boolScor 3 (maintainers > 1) <> scorer 5 (int2Float maintainers)
 
-codeScore :: IO Double -> IO Double -> IO Scorer
+codeScore :: IO Float -> IO Float -> IO Scorer
 codeScore documentL haskellL = do
   docum   <- documentL
   haskell <- haskellL
@@ -217,15 +217,15 @@ versionScore versionList versions lastUploads desc = do
       <> scorer 40 (numDays (safeHead lUps) (safeLast lUps))
       <> scorer
            15
-           (int2Double $ length $ filter (\x -> major x > 0 || minor x > 0)
+           (int2Float $ length $ filter (\x -> major x > 0 || minor x > 0)
                                          intUse
            )
       <> scorer
            20
-           (int2Double $ 4 * length
+           (int2Float $ 4 * length
              (filter (\x -> major x > 0 && patches x > 0) intUse)
            )
-      <> scorer 10 (int2Double $ patches $ maximumBy (comparing patches) intUse)
+      <> scorer 10 (int2Float $ patches $ maximumBy (comparing patches) intUse)
       <> boolScor 8 (any (\x -> major x == 0 && patches x > 0) intUse)
       <> boolScor 10 (any (\x -> major x > 0 && major x < 20) intUse)
       <> boolScor 5  (not $ null depre)
@@ -240,7 +240,7 @@ temporalScore p lastUploads versionList recentDownloads = do
   isApp         = (isNothing . library) p && (not . null . executables) p
   downloadScore = calcDownScore recentDownloads
   calcDownScore i = Scorer 5 $ min
-    ( (logBase 2 (int2Double $ max 0 (i - 100) + 100) - 6.6)
+    ( (logBase 2 (int2Float $ max 0 (i - 100) + 100) - 6.6)
     / (if isApp then 5 else 6)
     )
     5
@@ -251,14 +251,14 @@ temporalScore p lastUploads versionList recentDownloads = do
 -- Missing dependencyFreshnessScore for reasonable effectivity needs caching
   tractionScore  = do
     fresh <- packageFreshness
-    return $ boolScor 1 (fresh * int2Double recentDownloads > 1000)
+    return $ boolScor 1 (fresh * int2Float recentDownloads > 1000)
 
 rankPackagePage :: PackageDescription -> Scorer
 rankPackagePage p = tests <> benchs <> desc <> homeP <> sourceRp <> cats
  where
   tests    = boolScor 50 (hasTests p)
   benchs   = boolScor 10 (hasBenchmarks p)
-  desc     = Scorer 30 (min 1 (int2Double (S.length $ description p) / 300))
+  desc     = Scorer 30 (min 1 (int2Float (S.length $ description p) / 300))
   -- documentation = boolScor 30 ()
   homeP    = boolScor 30 (not $ S.null $ homepage p)
   sourceRp = boolScor 8 (not $ null $ sourceRepos p)
@@ -274,7 +274,7 @@ rankPackage
   -> TarIndexCacheFeature
   -> ServerEnv
   -> [PkgInfo]
-  -> IO Double
+  -> IO Float
 rankPackage versions recentDownloads maintainers docs tarCache env pkgs =
   total
     .   (<>) (rankPackagePage pkgD)

src/Distribution/Server/Framework/MemSize.hs

@@ -135,9 +135,6 @@ instance MemSize Integer where
 instance MemSize Float where
   memSize _ = 2
 
-instance MemSize Double where
-  memSize _ = 3
-
 instance MemSize UTCTime where
   memSize _ = 7