aboutsummaryrefslogtreecommitdiff
path: root/doc/bugs/Build_failure_at_commit_1efe4f3.mdwn
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]]