diff options
author | Joey Hess <joey@kitenet.net> | 2013-04-22 20:24:53 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-04-22 20:24:53 -0400 |
commit | 4d376b47b7aa506c4f4a4c5ccc83ca2ef1aeacc2 (patch) | |
tree | 33ab2e7c4b72d8a7fce40a0e93f63f3d50a6c3ab /Git/Construct.hs | |
parent | f672c39279366a8927abfcde3050952365f5e0ee (diff) |
expose Control.Monad.join
I think I've been looking for that function for some time.
Ie, I remember wanting to collapse Just Nothing to Nothing.
Diffstat (limited to 'Git/Construct.hs')
-rw-r--r-- | Git/Construct.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Git/Construct.hs b/Git/Construct.hs index 7500617a0..633e50b6b 100644 --- a/Git/Construct.hs +++ b/Git/Construct.hs @@ -130,7 +130,8 @@ remoteNamed n constructor = do remoteNamedFromKey :: String -> IO Repo -> IO Repo remoteNamedFromKey k = remoteNamed basename where - basename = join "." $ reverse $ drop 1 $ reverse $ drop 1 $ split "." k + basename = intercalate "." $ + reverse $ drop 1 $ reverse $ drop 1 $ split "." k {- Constructs a new Repo for one of a Repo's remotes using a given - location (ie, an url). -} |