anyFunction.re

type connType = Wifi
type login =
  | Admin
  | Regular
type connected = {
  connType,
  login,
}
type conn =
  | Connected(connected)
  | NoConnection
let anyFunction =
  fun
  | Connected({connType: Wifi, login: Admin}) => seeAdminPanel()
  | Connected({connType: Wifi, login: Regular}) => debugPrint("Must be admin...")
  | NoConnection => debugPrint("Must be connected and logged in...")