decapo01

{-# LANGUAGE FlexibleInstances #-}
module Common.StringUtils where

import qualified Data.Text as T
import qualified Data.Text.Encoding as En
import qualified Data.Text.Lazy as Lt
import qualified Data.Text.Lazy.Encoding as Len
import qualified Data.ByteString as Bs
import qualified Data.ByteString.Lazy as Lbs

decapo01

//User
User {
  id: UserId
  username: String
}

//UserDetails
UserDetails {
  otherDetails: String

decapo01

import Data.Text

data MyCaseClass
  = MyCaseClass
  { _id :: Int
  , name :: Text
  }

data MyOtherCaseClass

decapo01

final case class MyCaseClass(id: Int, name: String)

final case class MyOtherCaseClass(id: Int, name: String)


trait Show[-A]{
  def show(a: A): String
}

object Show {

decapo01

enum Drink { Beer, Koolaid }
enum PersonKind { AdultKind, ChildKind }

type Adult = {

    kind : PersonKind.AdultKind

    drink : Drink.Beer

    profession : string