more cleanup

src/Handler/Version.hs

@@ -11,25 +11,15 @@ import           Startlude               hiding ( Handler )
 
 import           Yesod.Core
 
-import qualified Data.Attoparsec.Text          as Atto
 import           Data.String.Interpolate.IsString
                                                 ( i )
-import qualified Data.Text                     as T
-import qualified Data.Text.IO                  as T
 import           Foundation
 import           Handler.Types.Status
 import           Lib.Error                      ( S9Error(NotFoundE) )
 import           Lib.PkgRepository              ( getBestVersion )
 import           Lib.Types.AppIndex             ( PkgId )
-import           Lib.Types.Emver                ( Version(..)
-                                                , parseVersion
-                                                , satisfies
-                                                )
 import           Network.HTTP.Types.Status      ( status404 )
 import           Settings
-import           System.FilePath                ( (</>) )
-import           System.IO.Error                ( isDoesNotExistError )
-import           UnliftIO.Directory             ( listDirectory )
 import           Util.Shared                    ( getVersionSpecFromQuery
                                                 , orThrow
                                                 )
@@ -43,25 +33,3 @@ getPkgVersionR pkg = do
     AppVersionRes <$> getBestVersion pkg spec `orThrow` sendResponseStatus
         status404
         (NotFoundE [i|Version for #{pkg} satisfying #{spec}|])
-
-
-data EosVersionRes = EosVersionRes
-    { eosVersionVersion      :: Version
-    , eosVersionReleaseNotes :: Text
-    }
-
-getEosVersionR :: Handler EosVersionRes
-getEosVersionR = do
-    spec    <- getVersionSpecFromQuery
-    root    <- getsYesod $ (</> "eos") . resourcesDir . appSettings
-    subdirs <- listDirectory root
-    let (failures, successes) = partitionEithers $ (Atto.parseOnly parseVersion . T.pack) <$> subdirs
-    for_ failures $ \f -> $logWarn [i|Emver Parse Failure for EOS: #{f}|]
-    let res = headMay . sortOn Down . filter (`satisfies` spec) $ successes
-    case res of
-        Nothing -> sendResponseStatus status404 (NotFoundE [i|EOS version satisfying #{spec}|])
-        Just r  -> do
-            let notesPath = root </> show r </> "release-notes.md"
-            notes <- liftIO $ T.readFile notesPath `catch` \e ->
-                if isDoesNotExistError e then pure [i|# Release Notes Missing for #{r}|] else throwIO e
-            pure $ EosVersionRes r notes