diff --git a/src/Handler/Package/V0/S9PK.hs b/src/Handler/Package/V0/S9PK.hs index 6c9e2e0..4ed12d5 100644 --- a/src/Handler/Package/V0/S9PK.hs +++ b/src/Handler/Package/V0/S9PK.hs @@ -32,11 +32,41 @@ import Lib.Types.Core ( S9PK, ) import Lib.Types.Emver (Version (..)) -import Network.HTTP.Types (ByteRange (..), hRange, parseByteRanges, status404, status416) -import Startlude (Applicative (..), Maybe (..), Num ((-)), Text, fmap, foldr, for, liftIO, pure, void, ($), (.), (>>=)) +import Network.HTTP.Types ( + ByteRange (..), + hRange, + parseByteRanges, + status404, + status416, + ) +import Startlude ( + Applicative (..), + Maybe (..), + Num ((-)), + Text, + fmap, + foldr, + for, + liftIO, + pure, + void, + ($), + (.), + (>>=), + ) import System.Directory (getFileSize) import System.FilePath (takeBaseName) -import Yesod (Content (..), TypedContent, YesodPersist (runDB), lookupHeader, notFound, respond, sendChunkBS, sendResponseStatus, typeOctet) +import Yesod ( + Content (..), + TypedContent, + YesodPersist (runDB), + lookupHeader, + notFound, + respond, + sendChunkBS, + sendResponseStatus, + typeOctet, + ) import Yesod.Core (logError)