what have i made

cthulu.hs

data Transcode = Transcode
  { inputUrl :: ByteString
  , ffmpegOpts :: [ByteString]
  , format :: ByteString
  }

getOutputName :: ByteString -> [ByteString] -> ByteString -> ByteString
getOutputName i opts f =
  (C.pack . List.map toLower . C.unpack . hex $ hashStrings (i : opts)) <> "." <>
  f
  
target :: Transcode -> OpId
target t = C.unpack $ getOutputName .* inputUrl $. ffmpegOpts $. format .$ t

infixr 9 .$

a .$ b = (\c -> c (a b), b)

infixr 8 $.

a $. (b, c) = (\d -> b $ d $ a c, c)

infixr 7 .*

a .* (b, c) = b a