111 lines
4.6 KiB
Plaintext
111 lines
4.6 KiB
Plaintext
module Aviary.Model where
|
|
|
|
import Prelude
|
|
|
|
import AviaryFormat.Format (Format(..)) as Format
|
|
|
|
import Crypto.Subtle.Key.Types (CryptoKey)
|
|
import Data.Maybe (Maybe(..))
|
|
import Effect.Aff (Aff)
|
|
|
|
data GalleryError
|
|
= UnexpectedError String
|
|
| ServerError
|
|
| NotFound
|
|
| MalformedKey
|
|
| DecryptFailed
|
|
| StrangeIndex
|
|
| IndexMissingField String
|
|
| UnknownStatusCodeForIndex Int
|
|
|
|
data ImageError
|
|
= MinorServerError
|
|
| ImageNotFound
|
|
| BadIndexData
|
|
| ImageDecryptFailed
|
|
| UnknownStatusCodeForImage Int
|
|
|
|
data ImageData
|
|
= Unloaded String -- file ID of encrypted data
|
|
| ILoaded String -- blob url of decrypted image
|
|
| IError ImageError
|
|
|
|
instance showImageData :: Show ImageData where
|
|
show (Unloaded fileID) = "Unloaded Image with fileID " <> fileID
|
|
show (ILoaded url) = "image: " <> url
|
|
show (IError e) = "error loading image: " <> (show e)
|
|
|
|
type Image =
|
|
{ key :: Aff CryptoKey
|
|
, blurhash :: String
|
|
, format :: Format.Format
|
|
, thumb :: ImageData
|
|
, full :: ImageData
|
|
}
|
|
|
|
data Model
|
|
= GError GalleryError
|
|
| GLoaded
|
|
(Maybe String) -- Title
|
|
(Maybe String) -- Description
|
|
(Array Image) -- Images
|
|
|
|
instance showGalleryError :: Show GalleryError where
|
|
show (UnexpectedError message) =
|
|
"Something that should be impossible just happened! Please open up a new issue "
|
|
<> "on our issue tracker to let us know, so that we can stop it from happening "
|
|
<> "in the future. The thing that happened was: " <> message
|
|
show ServerError =
|
|
"The server is experiencing issues at the minute. Please try again later, or if "
|
|
<> "it keeps up, make a report to the server owner."
|
|
show NotFound =
|
|
"Either this gallery never existed, or it has already expired. Either way, "
|
|
<> "there's nothing here now."
|
|
show MalformedKey =
|
|
"Hmm, something about the decryption key in your URL doesn't seem quite right. "
|
|
<> "Please double check that you entered the correct URL, the whole URL, and "
|
|
<> "nothing but the URL (especially the numbers and letters at the end). If so, "
|
|
<> "the person who gave you this URL might have sent the wrong one."
|
|
show DecryptFailed =
|
|
"I wasn't able to decrypt any information about the gallery at this location. "
|
|
<> "If you're sure you entered the URL correctly, it's likely that the gallery "
|
|
<> "that used to be here has expired."
|
|
show StrangeIndex =
|
|
"Hmm, something is strange here. I was able to decrypt the data for this "
|
|
<> "gallery, but I couldn't make any sense of it. It's possible that this "
|
|
<> "gallery was created with an incompatible protocol, or the client used to "
|
|
<> "create this gallery was malfunctioning. Specifically, the gallery index was "
|
|
<> "successfully decrypted, but isn't valid protobuf data."
|
|
show (IndexMissingField field) =
|
|
"Uh oh! This gallery's index was missing crucial information. This probably "
|
|
<> "means that it was created with an older version of Aviary that is no longer "
|
|
<> "supported. The field that was missing is: " <> field
|
|
show (UnknownStatusCodeForIndex code) =
|
|
"Huh! The server returned a status code that I don't know the meaning of. "
|
|
<> "Please consider opening an issue on our issue tracker so that I can improve "
|
|
<> "and be more helpful next time. The unknown code was: " <> (show code)
|
|
|
|
instance showImageError :: Show ImageError where
|
|
show MinorServerError =
|
|
"Oops! The server is experiencing issues at the minute, and wasn't able to send "
|
|
<> "this image. Please try reloading the page after a few minutes, and if the "
|
|
<> "issue keeps up, try contacting the server admin."
|
|
show ImageNotFound =
|
|
"This image has expired, and isn't available anymore"
|
|
show BadIndexData =
|
|
"Uh oh! This gallery had some corrupted-seeming data in it, and I wasn't able "
|
|
<> "to load this image because of it."
|
|
show ImageDecryptFailed =
|
|
"This image seems to have expired"
|
|
show (UnknownStatusCodeForImage code) =
|
|
"Huh! The server returned a status code that I don't know the meaning of. "
|
|
<> "Please consider opening an issue on our issue tracker so that I can improve "
|
|
<> "and be more helpful next time. The unknown code was: " <> (show code)
|
|
|
|
formatToMime :: Format.Format -> String
|
|
formatToMime Format.Format_WEBP = "image/webp"
|
|
formatToMime Format.Format_AVIF = "image/avif"
|
|
formatToMime Format.Format_JPG = "image/jpeg"
|
|
formatToMime Format.Format_PNG = "image/png"
|
|
formatToMime Format.Format_GIF = "image/gif"
|