blob: ba87b119150770312257147cdc99372e49862e55 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
Applying this
<pre>
laplace:git-annex jtang$ git diff
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs
index b9630b1..bf36e59 100644
--- a/Assistant/WebApp/Configurators.hs
+++ b/Assistant/WebApp/Configurators.hs
@@ -101,7 +101,7 @@ checkRepositoryPath p = do
-
- If run in another directory, the user probably wants to put it there. -}
defaultRepositoryPath :: Bool -> IO FilePath
-defaultRepositoryPath firstrun = do
+defaultRepositoryPath firstRun = do
cwd <- liftIO $ getCurrentDirectory
home <- myHomeDir
if home == cwd && firstRun
</pre>
Causes this to occur,
<pre>
Assistant/WebApp/Configurators.hs:114:17:
Couldn't match expected type `Control.Monad.Trans.RWS.Lazy.RWST
(Maybe (Env, FileEnv), WebApp, [Yesod.Form.Types.Lang])
Enctype
Ints
(GHandler WebApp WebApp)
t0'
with actual type `Text'
Expected type: String
-> Control.Monad.Trans.RWS.Lazy.RWST
(Maybe (Env, FileEnv), WebApp, [Yesod.Form.Types.Lang])
Enctype
Ints
(GHandler WebApp WebApp)
t0
Actual type: String -> Text
In the first argument of `(.)', namely `T.pack'
In the first argument of `(<$>)', namely
`T.pack . addTrailingPathSeparator'
make: *** [git-annex] Error 1
</pre>
> [[fixed|done]] --[[Joey]]
|
