adds comment, removes unnecessary import

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

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)