LTS-9.x (stage 2)

[unclechu]

No description provided.

[unclechu]

@dzhus Work in progress. For now just partially refactored Main.hs (fixed logger monad in realMain by using polymorphic exceptions).

[dzhus]

https://www.youtube.com/watch?v=c3Fmue_fe-g

[unclechu]

@dzhus If you have multiple constructors they will be at the same column:

data Foo
  = Bar
  | Baz
  | Bzz

Or for records:

data RFoo
  = RBar
  { foo :: Int
  , bar :: Int
  }
  | RBaz
  { bzz :: Int
  , zzz :: Int
  }

[dzhus]

Это я там ёбу дал, надо писать

data Foo = Foo
  { kek :: Double
  , foo :: String
  }

Суммы-рекордов вообще нахуй запретить надо, вместо них использовать generic-lens (типобезопаснее).

[unclechu]

@dzhus Я что-то не понял про какие "суммы-рекордов" ты говоришь?

[dzhus]

Я ещё пару дней почешу репу, но вроде по коду сейчас норм. Было бы неплохо протестировать на тестовом серваке :)

[unclechu]

@dzhus Да как норм, там же ещё эти вызовы runStdoutLoggingT не зачищены.

[unclechu]

Было бы вообще неплохо как-нибудь замокать api авайи, чтобы автотесты написать.

[unclechu]

@dzhus Main.hs вроде готов, осталось по модулям пройтись.

[unclechu]

Там websockets подвязан явно на IO, по-этому приходится в одном месте прокидывать логгер и обворачивать IO монаду, которая как аргумент передаётся (см. runServer).

[unclechu]

На данный момент подчищены все ворнинги. Осталось только избавиться от вермишели с runStdoutLoggingT.

[unclechu]

@dzhus Вроде готово, по-моему можно сливать в мастер.

[unclechu]

Тип логгера инициализируется в самой верхней монаде единожды.