[Haskell] Haskell job / adaptive learning