sends 404s if we can't find the package rather than just blowing up and going 500

src/Handler/Apps.hs

@@ -75,7 +75,9 @@ getAppR file = do
         `orThrow` sendResponseStatus status404 (NotFoundE [i|#{pkg} satisfying #{versionSpec}|])
     addPackageHeader pkg version
     void $ recordMetrics pkg version
-    (len, src) <- getPackage pkg version
+    (len, src) <- getPackage pkg version >>= \case
+        Nothing -> sendResponseStatus status404 ([i|#{pkg}@#{version} not found|] :: Text)
+        Just a  -> pure a
     addHeader "Content-Length" (show len)
     respondSource typeOctet $ src .| awaitForever sendChunkBS
 

src/Lib/PkgRepository.hs

@@ -96,7 +96,8 @@ import           UnliftIO                       ( MonadUnliftIO
                                                 )
 import           UnliftIO                       ( tryPutMVar )
 import           UnliftIO.Concurrent            ( forkIO )
-import           UnliftIO.Directory             ( getFileSize
+import           UnliftIO.Directory             ( doesPathExist
+                                                , getFileSize
                                                 , listDirectory
                                                 , removeFile
                                                 , renameFile
@@ -257,9 +258,13 @@ getHash pkg version = do
 getPackage :: (MonadResource m, MonadReader r m, Has PkgRepo r)
            => PkgId
            -> Version
-           -> m (Integer, ConduitT () ByteString m ())
+           -> m (Maybe (Integer, ConduitT () ByteString m ()))
 getPackage pkg version = do
     root <- asks pkgRepoFileRoot
     let pkgPath = root </> show pkg </> show version </> show pkg <.> "s9pk"
-    n <- getFileSize pkgPath
+    found <- doesPathExist pkgPath
-    pure (n, sourceFile pkgPath)
+    if found
+        then do
+            n <- getFileSize pkgPath
+            pure . Just $ (n, sourceFile pkgPath)
+        else pure Nothing