aboutsummaryrefslogtreecommitdiff
path: root/src/index.ts
blob: accde982abf11b3d4488da9f69a13682ca8eec84 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
export interface EffectAtom<T = unknown> { output: T }
export type Effect = EffectAtom[]

export interface PrintString<_ extends string> extends EffectAtom { }
export interface Print<_ extends any> extends EffectAtom { }
// interface Debug<_ extends string, T> extends EffectAtom<T> { }

export interface WriteFile<_Path extends string, _Content extends string> extends EffectAtom { }
export interface ReadFile<_Path extends string> extends EffectAtom<string> { }

export interface Program<Effs extends Effect, ExitCode extends number = 0> {
  effects: Effs,
  exitCode: ExitCode,
}

export interface Kind<Inp = unknown, Out = unknown> {
  input: Inp
  return: Out
}

export interface WriteFileC extends Kind<string> {
  return: WriteFile<"./somefile.txt", this['input']>
}

export interface ChainIO<Eff extends EffectAtom, Fn extends Kind> extends EffectAtom {
  input: Eff
  chainTo: Fn
}

export type main = Program<[
  [1, 2, 3] extends infer Res ? Print<Res> : never,
  Print<"bye bye">,
  ReadFile<"./.gitignore">,

  ChainIO<
    ReadFile<"./default.nix">,
    WriteFileC
  >,
]>