A music player that connects to your cloud/distributed storage. diffuse.sh
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798module Sources.Processing exposing (..)
import Sources exposing (Source, SourceData)import Tracks exposing (Tags, Track)
-- 🌳
type Status = Processing ( Source, List Track ) (List ( Source, List Track )) | NotProcessing
type alias Arguments = { origin : String , sources : List Source }
-- MARKERS & RESPONSES
type Marker = TheBeginning | InProgress String | TheEnd
type alias PrepationAnswer marker = { sourceData : SourceData , marker : marker }
type alias TreeAnswer marker = { filePaths : List String , marker : marker }
-- CONTEXTS
type alias Context = { filePaths : List String , origin : String , preparationMarker : Marker , source : Source , treeMarker : Marker }
type alias ContextForTags = { amount : Int , nextFilePaths : List String , receivedFilePaths : List String , receivedTags : List (Maybe Tags) , sourceId : String , urlsForTags : List TagUrls }
type alias ContextForTagsSync = { receivedFilePaths : List String , receivedTags : List (Maybe Tags) , trackIds : List String , urlsForTags : List TagUrls }
type alias TagUrls = { getUrl : String , headUrl : String }
-- HTTP
type HttpMethod = Get | Head
httpMethod : HttpMethod -> StringhttpMethod method = case method of Get -> "GET"
Head -> "HEAD"