On Sun, Nov 08, 2009 at 20:36:02 -0800, Jason Dagit wrote:
> The weird thing is this patch are these lines:
> -write_default_prefs = do set_preflist "boring" default_boring
> +write_default_prefs =   do set_preflist "boring" default_boring
> 
> -get_preflist p = do prefs <- prefsDirectory `mplus` return "x"
> +get_preflist p =  do prefs <- prefsDirectory `mplus` return "x"
> 
> -set_prefval p v = do pl <- get_preflist "prefs"
> +set_prefval p v =  do pl <- get_preflist "prefs"
> 
> Any reason for the whitespace changes?

This to compensate for the whitespace change that results from the new
shorter name.

Observe:

-set_prefval p v = do pl <- get_preflist "prefs"
+set_prefval p v =  do pl <- get_preflist "prefs"
+setPrefval p v =  do pl <- get_preflist "prefs"
                      case map snd $ filter ((==p).fst) $ map (break (==' ')) 
pl of
                          [val] -> case words val of
                              [] -> return Nothing
                              _ -> return $ Just $ tail val
                          _ -> return Nothing
                                    
I'm pretty sure I made these changes after the replace, but they must have
commuted up...

-- 
Eric Kow <http://www.nltg.brighton.ac.uk/home/Eric.Kow>
PGP Key ID: 08AC04F9

Attachment: signature.asc
Description: Digital signature

_______________________________________________
darcs-users mailing list
[email protected]
http://lists.osuosl.org/mailman/listinfo/darcs-users

Reply via email to