24 lines
717 B
Plaintext
24 lines
717 B
Plaintext
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
|