unison-share-api-0.0.0
Safe HaskellNone
LanguageHaskell2010

Unison.Server.Local.Endpoints.Current

Documentation

type CurrentEndpoint = "current" :> APIGet Current Source #

data Current Source #

Constructors

Current 

Fields

Instances

Instances details
ToJSON Current Source # 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

Methods

toJSON :: Current -> Value #

toEncoding :: Current -> Encoding #

toJSONList :: [Current] -> Value #

toEncodingList :: [Current] -> Encoding #

omitField :: Current -> Bool #

Generic Current Source # 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

Associated Types

type Rep Current 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

type Rep Current = D1 ('MetaData "Current" "Unison.Server.Local.Endpoints.Current" "unison-share-api-0.0.0-9fFxz1kl0ay2hTWczK4vVA" 'False) (C1 ('MetaCons "Current" 'PrefixI 'True) (S1 ('MetaSel ('Just "project") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ProjectName)) :*: (S1 ('MetaSel ('Just "branch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ProjectBranchName)) :*: S1 ('MetaSel ('Just "path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Absolute))))

Methods

from :: Current -> Rep Current x #

to :: Rep Current x -> Current #

Show Current Source # 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

Methods

showsPrec :: Int -> Current -> ShowS #

show :: Current -> String #

showList :: [Current] -> ShowS #

ToSchema Current Source # 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

Methods

declareNamedSchema :: Proxy Current -> Declare (Definitions Schema) NamedSchema #

ToSample Current Source # 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

Methods

toSamples :: Proxy Current -> [(Text, Current)] #

type Rep Current Source # 
Instance details

Defined in Unison.Server.Local.Endpoints.Current

type Rep Current = D1 ('MetaData "Current" "Unison.Server.Local.Endpoints.Current" "unison-share-api-0.0.0-9fFxz1kl0ay2hTWczK4vVA" 'False) (C1 ('MetaCons "Current" 'PrefixI 'True) (S1 ('MetaSel ('Just "project") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ProjectName)) :*: (S1 ('MetaSel ('Just "branch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ProjectBranchName)) :*: S1 ('MetaSel ('Just "path") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Absolute))))

serveCurrent :: forall (m :: Type -> Type) v a. MonadIO m => Codebase m v a -> Backend m Current Source #

getCurrentProjectBranch :: MonadIO m => Codebase m v a -> m Current Source #