twidge 0.99.2 → 0.99.3

raw patch · 3 files changed

+4/−3 lines, 3 files

Files

Commands/Update.hs +1/−1
Config.hs +2/−1
twidge.cabal +1/−1

Commands/Update.hs view

@@ -56,7 +56,7 @@                  status = body              in do poststatus <- procStatus cp "update" status                    xmlstr <- sendAuthRequest cp "/statuses/update.xml" []-                             ([("source", "Twidge"), ("status", poststatus)] +++                             ([("source", "twidge"), ("status", poststatus)] ++                               irt)                    debugM "update" $ "Got doc: " ++ xmlstr update_worker x cp ([], []) =

Config.hs view

@@ -35,7 +35,7 @@ import Control.Monad import Data.Either.Utils import Data.String.Utils(strip, split)-import System.Posix.Files(rename)+import System.Posix.Files(rename, setFileCreationMask)  getDefaultCP =     do return $ forceEither $ @@ -67,6 +67,7 @@                    Nothing -> getCPName                    Just x -> return x        let tempname = cpname ++ ".write.tmp"+       setFileCreationMask 0o0077        writeFile tempname (to_string cp)        rename tempname cpname

twidge.cabal view

@@ -1,5 +1,5 @@ Name: twidge-Version: 0.99.2+Version: 0.99.3 License: GPL Maintainer: John Goerzen <jgoerzen@complete.org> Author: John Goerzen