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)