:PROPERTIES:
  :CUSTOM_ID: astuces
  :END:

** Compiler rapidement un script haskell:
#+begin_src sh
stack script simple.hs --resolver lts-14.18
#+end_src

Compiler rapidement un script haskell:

On peut aussi le mettre dans le code source :

=   stak script simple.hs --resolver lts-14.18=

#+begin_src haskell
{- stack script
 --resolver lts-14.18
-}
#+end_src

On peut aussi le mettre dans le code source :

* Data analysis
** Frames
Minimal example
#+begin_src haskell
{-# LANGUAGE DataKinds, FlexibleContexts, QuasiQuotes, TemplateHaskell, TypeApplications,
TypeApplications#-}
import Lens.Micro.Extras
import qualified Data.Foldable as F
import Frames

=   {- stack script =\\
=    --resolver lts-14.18=\\
=   -}=\\
=   =

-- Data set from http://vincentarelbundock.github.io/Rdatasets/datasets.html
tableTypes "TLeft" "data/prestige.csv"
tableTypes "TRight" "data/test.csv"

* Learning Haskell
  :PROPERTIES:
  :CUSTOM_ID: learning-haskell
  :END:

loadLeft :: IO (Frame TLeft)
loadLeft = inCoreAoS (readTable "data/prestige.csv")

** Libraries
   :PROPERTIES:
   :CUSTOM_ID: libraries
   :END:

loadRight :: IO (Frame TRight)
loadRight = inCoreAoS (readTable "data/test.csv")
main = do
  l <- loadLeft
  r <- loadRight
  -- Native way of showing a row
  print $ frameRow l 1
  -- List-style way of showing a row
  print $ take 2 $ F.toList l
  let t = innerJoin @'[ColType] l r
  print $ frameRow t 1

#+end_src
* Learning Haskell
** Libraries

* Livres
  :PROPERTIES:
  :CUSTOM_ID: livres
  :END:

* Ressources

** STRT
[[books.org::Haskell%20Programming%20From%20First%20Principles][Haskell
programming from first principles]]
   :PROPERTIES:
   :CUSTOM_ID: strt-haskell-programming-from-first-principles
   :END:
* Contributing
  :PROPERTIES:
  :CUSTOM_ID: contributing
  :END:

** STRT [[books.org::Haskell%20Programming%20From%20First%20Principles][Haskell programming from first principles]]

   :PROPERTIES:
   :CUSTOM_ID: ghc
   :END:
*** - [X] [[https://gitlab.haskell.org/ghc/ghc/-/issues/20261][20261]]
    :PROPERTIES:
    :CUSTOM_ID: x-20261
    :END:
1. WAIT Rebase
*** - [X] Lire commentary
    :PROPERTIES:
    :CUSTOM_ID: x-lire-commentary
    :END:
*** - [X] STRT Lire [[https://www.aosabook.org/en/ghc.html]]
    :PROPERTIES:
    :CUSTOM_ID: x-strt-lire-httpswww.aosabook.orgenghc.html
    :END:
** Panopticum
   :PROPERTIES:
   :CUSTOM_ID: panopticum
   :END:
TODO [[https://foss.heptapod.net/bsdutils/panopticum/-/issues][Issues]]
Faire les version faciles (refactoring prévu)
- ** [X] Regarder pourquoi OPTION_{RADIO} ne passe pas (cf test)
     :PROPERTIES:
     :CUSTOM_ID: x-regarder-pourquoi-optionradio-ne-passe-pas-cf-test
     :END:
DEADLINE: <2021-09-08 Wed> SCHEDULED: <2021-09-07 Tue>
** Darcs
   :PROPERTIES:
   :CUSTOM_ID: darcs
   :END:
*** - [X] --mirror
    :PROPERTIES:
    :CUSTOM_ID: x-mirror
    :END:
[[notmuch:id:shf0ni$h6s$1@ciao.gmane.io][Email from Ben Franksen: Re:
[darcs-users] Darcs equivalent of force-pushing and branching]]
[[http://bugs.darcs.net/issue2683][Issue]]
1. TODO Version interactive
   1. Structure Apply.hs:
      [[file:~/code/darcs/src/Darcs/UI/Commands/Apply.hs::applyCmdCommon%20patchApplier%20patchProxy%20opts%20bundle%20repository%20=%20do][applyCmdCommon]]
      contient
      - la liste interactives des patches créé par runSelection
        [[file:~/code/darcs/src/Darcs/UI/SelectChanges.hs::runSelection%20_%20PSC%20%7B%20splitter%20=%20Just%20_%20%7D%20=][runSelection]]
        ->
        [[file:home/alex/code/darcs/src/Darcs/UI/SelectChanges.hs::runInvertibleSelection%20::%20forall%20p%20wX%20wY%20.][runInvertibleSelection]]
      ->
      [[file:~/code/darcs/src/Darcs/UI/SelectChanges.hs::textSelect%20lps'%20pcs%20=][textSelect]]
      qui pose les questions à l'utilisateur
      - le merge qui contient la nouvelle stratégie du merge, appelé par
      applyPatches, instancié dans
      [[file:~/code/darcs/src/Darcs/UI/ApplyPatches.hs::standardApplyPatches%20::%20(RepoPatch%20p,%20ApplyState%20p%20~%20Tree)][standardApplyPatches]]
      ->
      [[file:~/code/darcs/src/Darcs/UI/ApplyPatches.hs::mergeAndTest%20::%20(RepoPatch%20p,%20ApplyState%20p%20~%20Tree)][mergeAndTest]]
      qui contient l'option mirroir
   2. Rajouter une 2eme phase de sélection avec liste des patches à
      supprimer
   3. Merge standard si tous les patches ne sont pas sélectionnés
   4. -a/--all affecte les 2 phases ou non ?

*** TODO Lire commentary
*** TODO STRT Lire [[https://www.aosabook.org/en/ghc.html]]