[prev in list] [next in list] [prev in thread] [next in thread] 

List:       darcs-devel
Subject:    [darcs-devel] [patch2107] Darcs.UI.Flags: add module haddocks (and 1 more)
From:       Ben Franksen <bugs () darcs ! net>
Date:       2020-10-20 9:33:49
Message-ID: 1MqapC-1k8cdK0ziK-00mcqk () mrelayeu ! kundenserver ! de
[Download RAW message or body]

New submission from Ben Franksen <ben.franksen@online.de>:

Trivial maintenace patches, will self-accept.

2 patches for repository http://darcs.net/screened:

patch f4db57198c6e174658b9aa8891db6beb43f78a1b
Author: Ben Franksen <ben.franksen@online.de>
Date:   Mon Jul 20 12:49:46 CEST 2020
  * Darcs.UI.Flags: add module haddocks

patch 563222c676a22aca83a24f1145727ddc19e558f9
Author: Ben Franksen <ben.franksen@online.de>
Date:   Mon Jul 20 12:50:05 CEST 2020
  * Darcs.UI.Flags: reformat some of the code and comments

----------
files: darcs_ui_flags_-add-module-haddocks.dpatch, patch-preview.txt, unnam=
ed
messages: 22490
nosy: bf
status: needs-screening
title: Darcs.UI.Flags: add module haddocks (and 1 more)

__________________________________
Darcs bug tracker <bugs@darcs.net>
<http://bugs.darcs.net/patch2107>
__________________________________
["patch-preview.txt" (text/x-darcs-patch)]


[Darcs.UI.Flags: add module haddocks
Ben Franksen <ben.franksen@online.de>**20200720104946
 Ignore-this: 5edb970404f405a818e51ab6a4da8e7de5af91acc690da01b549830c6ef64f2875c739618e1effe7
 ] hunk ./src/Darcs/UI/Flags.hs 19
+-- | Helper functions to access option contents. Some of them are here only to
+-- ease the transition from the legacy system where we manually parsed the flag
+-- list to the new(er) option system. At some point this module should be
+-- renamed and the re-exports from "Darcs.UI.Options.All" removed.

[Darcs.UI.Flags: reformat some of the code and comments
Ben Franksen <ben.franksen@online.de>**20200720105005
 Ignore-this: 894b1632355a28593b2476991fac3d893a82bac83047da0dac18c203ac1e09b4b90930fd8c44b5d3
 ] hunk ./src/Darcs/UI/Flags.hs 184
- -wantGuiPause fs = if (hasDiffCmd fs || hasExternalMerge fs) && hasPause fs then \
O.YesWantGuiPause else O.NoWantGuiPause +wantGuiPause fs =
+  if (hasDiffCmd fs || hasExternalMerge fs) && hasPause fs
+    then O.YesWantGuiPause
+    else O.NoWantGuiPause
hunk ./src/Darcs/UI/Flags.hs 289
- -maybeFixSubPaths :: (AbsolutePath, AbsolutePath) -> [String] -> IO [Maybe \
AnchoredPath] +maybeFixSubPaths :: (AbsolutePath, AbsolutePath)
+                 -> [String]
+                 -> IO [Maybe AnchoredPath]
hunk ./src/Darcs/UI/Flags.hs 344
- -getAuthor Nothing pipe = if pipe then askUser "Who is the author? " else \
promptAuthor True False +getAuthor Nothing pipe =
+  if pipe
+    then askUser "Who is the author? "
+    else promptAuthor True False
hunk ./src/Darcs/UI/Flags.hs 412
- --- | 'getEasyAuthor' tries to get the author name first from the repository \
                preferences,
- --- then from global preferences, then from environment variables.  Returns @[]@
- --- if it could not get it.  Note that it may only return multiple possibilities \
                when
- --- reading from global preferences
+-- | 'getEasyAuthor' tries to get the author name first from the repository
+-- preferences, then from global preferences, then from environment variables.
+-- Returns @[]@ if it could not get it. Note that it may only return multiple
+-- possibilities when reading from global preferences.
hunk ./src/Darcs/UI/Flags.hs 455
- --- Alternatively the user can set @$S@@ENDMAIL@ which will be used as a fallback \
if present. +-- Alternatively the user can set @$S@@ENDMAIL@ which will be used as a
+-- fallback if present.


["darcs_ui_flags_-add-module-haddocks.dpatch" (application/x-darcs-patch)]
["unnamed" (text/plain)]

.





_______________________________________________
darcs-devel mailing list
darcs-devel@osuosl.org
https://lists.osuosl.org/mailman/listinfo/darcs-devel


[prev in list] [next in list] [prev in thread] [next in thread]