29 lines
1.3 KiB
Plaintext
29 lines
1.3 KiB
Plaintext
|
$OpenBSD: patch-src_Darcs_Patch_Info_hs,v 1.1 2010/04/25 21:20:45 kili Exp $
|
||
|
|
--- src/Darcs/Patch/Info.hs.orig Mon Apr 12 21:42:42 2010
|
||
|
|
+++ src/Darcs/Patch/Info.hs Sun Apr 25 22:56:01 2010
|
||
|
|
@@ -18,10 +18,10 @@
|
||
|
|
module Darcs.Patch.Info ( PatchInfo, patchinfo, invert_name, is_inverted,
|
||
|
|
idpatchinfo, add_junk,
|
||
|
|
make_filename, make_alt_filename, readPatchInfo,
|
||
|
|
- just_name, just_author, repopatchinfo, RepoPatchInfo,
|
||
|
|
- human_friendly, to_xml, pi_date, set_pi_date,
|
||
|
|
- pi_name, pi_rename, pi_author, pi_tag, pi_log,
|
||
|
|
- showPatchInfo, is_tag
|
||
|
|
+ just_name, just_author, just_log, repopatchinfo,
|
||
|
|
+ RepoPatchInfo, human_friendly, to_xml, pi_date,
|
||
|
|
+ set_pi_date, pi_name, pi_rename, pi_author, pi_tag,
|
||
|
|
+ pi_log, showPatchInfo, is_tag
|
||
|
|
) where
|
||
|
|
import Text.Html hiding (name, text)
|
||
|
|
import System.Random ( randomRIO )
|
||
|
|
@@ -98,6 +98,9 @@ just_name pinf = if is_inverted pinf then "UNDO: " ++
|
||
|
|
|
||
|
|
just_author :: PatchInfo -> String
|
||
|
|
just_author = BC.unpack . _pi_author
|
||
|
|
+
|
||
|
|
+just_log :: PatchInfo -> String
|
||
|
|
+just_log = unlines . map BC.unpack . _pi_log
|
||
|
|
|
||
|
|
human_friendly :: PatchInfo -> Doc
|
||
|
|
human_friendly pi =
|