aviary-ps/src/ffi.purs

module Aviary.FFI where

import Prelude

import Data.ArrayBuffer.Types (ArrayBuffer)
import Data.Maybe (Maybe(..))
import Effect (Effect)
import Web.File.Blob (Blob)

-- mimeType :: String
-- blobData :: ArrayBuffer
foreign import arrayBufferToBlob :: String -> ArrayBuffer -> Blob

foreign import nonce_a :: ArrayBuffer
foreign import nonce_b :: ArrayBuffer

foreign import decodeBlurhashImpl :: (forall x. x -> Maybe x) -> (forall x. Maybe x) -> Int -> Int -> String -> Maybe String
decodeBlurhash :: Int -> Int -> String -> Maybe String
decodeBlurhash = decodeBlurhashImpl Just Nothing
decodeBlurhash32 :: String -> Maybe String
decodeBlurhash32 = decodeBlurhash 32 32

foreign import removeSpinner :: Effect Unit