From dd0c4e3f4cf5dc75b9622f6f3053814c8d33592e Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 2 May 2016 15:07:09 +0300
Subject: [PATCH] Clean up warnings

---
 Handler/Download.hs | 20 --------------------
 Handler/Sitemap.hs  | 24 +++++++++++++-----------
 2 files changed, 13 insertions(+), 31 deletions(-)

diff --git a/Handler/Download.hs b/Handler/Download.hs
index ed367ec..7dd5ceb 100644
--- a/Handler/Download.hs
+++ b/Handler/Download.hs
@@ -12,26 +12,6 @@ import Yesod.GitRepo (grContent)
 import Stackage.Database
 import qualified Data.Text as T
 
-executableFor :: SupportedArch -> StackageExecutable
-executableFor Win32 = StackageWindowsExecutable
-executableFor Win64 = StackageWindowsExecutable
-executableFor _ = StackageUnixExecutable
-
--- TODO: link to s3
-executableLink :: SupportedArch -> StackageExecutable -> Text
-executableLink arch exe =
-    "https://s3.amazonaws.com/download.fpcomplete.com/stackage-cli/"
-    <> toPathPiece arch <> "/" <> toPathPiece exe
-
-downloadCandidates :: [(SupportedArch, StackageExecutable)]
-downloadCandidates =
-    map (\arch -> (arch, executableFor arch))
-        [minBound .. maxBound]
-
-currentlySupported :: SupportedArch -> Bool
-currentlySupported Linux64 = True
-currentlySupported _ = False
-
 getDownloadR :: Handler Html
 getDownloadR = redirectWith status301 InstallR
 
diff --git a/Handler/Sitemap.hs b/Handler/Sitemap.hs
index 4d60c7c..4ed7ac6 100644
--- a/Handler/Sitemap.hs
+++ b/Handler/Sitemap.hs
@@ -2,9 +2,9 @@ module Handler.Sitemap (getSitemapR) where
 
 import Import
 import Yesod.Sitemap
-import Stackage.Database
+--import Stackage.Database
 
-type SitemapFor a = forall m. Monad m => Conduit a m (SitemapUrl (Route App))
+--type SitemapFor a = forall m. Monad m => Conduit a m (SitemapUrl (Route App))
 type Sitemap = forall m. Monad m => Producer m (SitemapUrl (Route App))
 
 getSitemapR :: Handler TypedContent
@@ -56,6 +56,7 @@ ltsSitemap = awaitForever go
         slug = show' (ltsMajor lts) <> "." <> show' (ltsMinor lts)
 -}
 
+{-
 snapshotSitemaps :: SitemapFor Snapshot
 snapshotSitemaps = awaitForever go
   where
@@ -79,18 +80,19 @@ packageMetadataSitemaps = awaitForever go
         url' floc = url $ floc $ PackageName $ packageName m
 
 
-priority :: Double -> Route App -> Sitemap
-priority p loc = yield $ SitemapUrl
-    { sitemapLoc = loc
-    , sitemapLastMod = Nothing
-    , sitemapChangeFreq = Nothing
-    , sitemapPriority = Just p
-    }
-
 url :: Route App -> Sitemap
-url loc = yield $ SitemapUrl
+url loc = yield SitemapUrl
     { sitemapLoc = loc
     , sitemapLastMod = Nothing
     , sitemapChangeFreq = Nothing
     , sitemapPriority = Nothing
     }
+-}
+
+priority :: Double -> Route App -> Sitemap
+priority p loc = yield SitemapUrl
+    { sitemapLoc = loc
+    , sitemapLastMod = Nothing
+    , sitemapChangeFreq = Nothing
+    , sitemapPriority = Just p
+    }