foo.fs

type LogLevel = 
    | Error
    | Warning
    | Info

let log (level:LogLevel) message = // LogLevel -> string -> unit
    printfn "[%A]: %s" level message
    ()
    
log Error "Curried function" 

let logError = log Error
logError "Partially Applied function" //This isn't currying it's just that the compiler knows how to assign a function to a variable that calls another function without all arguments