Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-31 04:03:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

adds comment, removes unnecessary import

Browse Source
This commit is contained in:
Aaron Greenspan
2020-01-08 11:40:28 -07:00
parent 66a645804f
commit c0f32e7263
2 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/Handler/Apps.hs
View File

@@ -17,7 +17,6 @@ import qualified GHC.Show (Show (..))
import System.Directory import System.Directory
import Yesod.Core import Yesod.Core
import Constants
import Foundation import Foundation
import Handler.Types.Status import Handler.Types.Status
import Lib.Registry import Lib.Registry

1
src/Lib/Registry.hs
View File

@@ -39,6 +39,7 @@ newtype RegisteredAppVersion = RegisteredAppVersion (AppVersion, FilePath) deriv
instance HasAppVersion RegisteredAppVersion where instance HasAppVersion RegisteredAppVersion where
version (RegisteredAppVersion (av, _)) = av 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 :: KnownSymbol a => FilePath -> Extension a -> IO [RegisteredAppVersion]
getAvailableAppVersions rootDirectory ext@(Extension appId) = do getAvailableAppVersions rootDirectory ext@(Extension appId) = do
versions <- mapMaybe readMaybe <$> getSubDirectories (rootDirectory </> appId) versions <- mapMaybe readMaybe <$> getSubDirectories (rootDirectory </> appId)