git.iko.soy/rowtype-yoga/psfp
on 3d6eb2f help sign in
18 lines 473 B history raw
1module Playground.Playground where
3import Prelude
5import Control.Promise (Promise, toAff)
6import Data.Function.Uncurried (Fn2, runFn2)
7import Data.Newtype (class Newtype)
8import Effect.Aff (Aff)
10newtype Folder
11 = Folder String
12derive instance ntFolder :: Newtype Folder _
13derive newtype instance eqFolder :: Eq Folder
15foreign import copyImpl :: Fn2 String String (Promise Unit)
17copy :: String -> String -> Aff Unit
18copy src target = runFn2 copyImpl src target # toAff