From c0f32e7263dd649e2d7888bf78b7f50b7fc5a69e Mon Sep 17 00:00:00 2001 From: Aaron Greenspan Date: Wed, 8 Jan 2020 11:40:28 -0700 Subject: [PATCH] adds comment, removes unnecessary import --- src/Handler/Apps.hs | 1 - src/Lib/Registry.hs | 1 + 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs index 813d043..edf2aea 100644 --- a/src/Handler/Apps.hs +++ b/src/Handler/Apps.hs @@ -17,7 +17,6 @@ import qualified GHC.Show (Show (..)) import System.Directory import Yesod.Core -import Constants import Foundation import Handler.Types.Status import Lib.Registry diff --git a/src/Lib/Registry.hs b/src/Lib/Registry.hs index 9b42c91..32e550d 100644 --- a/src/Lib/Registry.hs +++ b/src/Lib/Registry.hs @@ -39,6 +39,7 @@ newtype RegisteredAppVersion = RegisteredAppVersion (AppVersion, FilePath) deriv instance HasAppVersion RegisteredAppVersion where version (RegisteredAppVersion (av, _)) = av +-- retrieve all valid semver folder names with queried for file: rootDirectory/appId/[0.0.0 ...]/appId.extension getAvailableAppVersions :: KnownSymbol a => FilePath -> Extension a -> IO [RegisteredAppVersion] getAvailableAppVersions rootDirectory ext@(Extension appId) = do versions <- mapMaybe readMaybe <$> getSubDirectories (rootDirectory appId)