Ticket #6104: before.txt

File before.txt, 12.4 KB (added by igloo, 12 months ago)
Line 
1Magic: Wanted 33214052,
2       got    33214052
3Version: Wanted [7, 0, 5, 2, 0, 1, 2, 0, 6, 2, 6],
4         got    [7, 0, 5, 2, 0, 1, 2, 0, 6, 2, 6]
5Way: Wanted [],
6     got    []
7interface main:CopyFile 70520120626
8  interface hash: 34cd784df339d39de6bce8b6536995e5
9  ABI hash: 35d588139b54f673773d7d141e9f894e
10  export-list hash: 6279e8f29e93b2e3dfd07c27bd3ee955
11  orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e
12  flag hash: b96ce2c6267ce466f0aa6b7dfb526036
13  used TH splices: False
14  where
15exports:
16  CopyFile.copyExecutableFile
17  CopyFile.copyOrdinaryFile
18  CopyFile.myCopyFile
19  CopyFile.setDirOrdinary
20  CopyFile.setFileExecutable
21  CopyFile.setFileOrdinary
22module dependencies:
23package dependencies: array-0.3.0.3 base deepseq-1.2.0.1
24                      directory-1.1.0.1 filepath-1.2.0.1 ghc-prim integer-gmp
25                      old-locale-1.0.0.4 time-1.4 unix-2.5.1.0
26orphans: base:GHC.Base base:GHC.Float
27         time-1.4:Data.Time.Calendar.Gregorian
28         time-1.4:Data.Time.Format.Parse
29         time-1.4:Data.Time.LocalTime.LocalTime
30family instance modules: base:Data.Either base:Data.Maybe
31                         ghc-prim:GHC.Generics ghc-prim:GHC.Tuple
32import  -/  base:Control.Exception 430abf92fd17d5a8cecf7ba647202542
33import  -/  base:Control.Exception.Base 133d68135135146ebd146affa1a71680
34import  -/  base:Control.Monad a483f9bbf1a0a4f27b0f8ebd7398002e
35import  -/  base:Foreign 9f24f6afc7fa466bdc7c74035c612f99
36import  -/  base:Foreign.C c86d3f98c1afd3324e4d18eb4a5444ee
37import  -/  base:Foreign.C.Error 0c5a465375f1a96e32e1e8cecd9ac8b7
38import  -/  base:Foreign.Marshal.Alloc aa6aa4ebc4d73043da5d29781b6e5e3e
39import  -/  base:GHC.Base 6f398d5d5451a02119dcc1ea281c2f9e
40import  -/  base:GHC.IO 3cad53abc28a0d337b5753d15111bc07
41import  -/  base:GHC.IO.Exception 4b6067e9ff58fe2ee3291b7390f4bee2
42import  -/  base:GHC.IO.Handle 87e03c954a4789b9bf319a88b6040865
43import  -/  base:GHC.IO.Handle.FD 7270aedf73e0245ce34ed2311a31805b
44import  -/  base:GHC.IO.Handle.Text f444c3d3d37650e0a4b11d491a484f35
45import  -/  base:GHC.IO.IOMode f807c491b1b4a3e126820693acc286e4
46import  -/  base:Prelude af70535b08c06326e6e2b6c61f387cce
47import  -/  base:System.IO bf22fd9277da44317481d51d40be749d
48import  -/  base:System.IO.Error 182a69b1c28a328a0e4c1ab16fead6af
49import  -/  base:System.Posix.Internals 5626ffebe506e17b34be62e00a6611e3
50import  -/  base:System.Posix.Types 9b6d72def20ab2ba1c106d8423a4a095
51import  -/  directory-1.1.0.1:System.Directory f489415264fa99ddcd9b974fab266f2b
52import  -/  filepath-1.2.0.1:System.FilePath 8353cce0176f435a5bb9e79437dd555d
53import  -/  filepath-1.2.0.1:System.FilePath.Posix 8526c8179c1d6fc8b56ed6a8d9052566
54import  -/  ghc-prim:GHC.Classes 128f8128c5a876811f90d77f23b234fa
55import  -/  ghc-prim:GHC.Types 73e05a52c41842d3f15b7eead9f6cd80
5660a303884e2bf49471ac602be14f0ff7
57  copyExecutableFile :: GHC.IO.FilePath
58                        -> GHC.IO.FilePath
59                        -> GHC.Types.IO ()
60    {- Arity: 3, Strictness: LLL,
61       Unfolding: (CopyFile.copyExecutableFile1
62                     `cast`
63                   ((->)
64                        (Refl GHC.IO.FilePath)
65                        ((->)
66                             (Refl GHC.IO.FilePath) (Sym (GHC.Types.NTCo:IO (Refl ())))))) -}
67a788540aeb448d99ceb5ae25bd087e13
68  copyExecutableFile1 :: GHC.IO.FilePath
69                         -> GHC.IO.FilePath
70                         -> GHC.Prim.State# GHC.Prim.RealWorld
71                         -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
72    {- Arity: 3, Strictness: LLL,
73       Unfolding: (\ src :: GHC.IO.FilePath
74                     dest :: GHC.IO.FilePath
75                     eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
76                   case CopyFile.copyExecutableFile5
77                          src
78                          dest
79                          eta of wild { (#,#) new_s a2 ->
80                   CopyFile.copyExecutableFile3
81                     dest
82                     CopyFile.copyExecutableFile2
83                       `cast`
84                     (Sym (System.Posix.Types.NTCo:CMode))
85                     new_s }) -}
86455f0ee6fd1f941141b5c87b771ea421
87  copyExecutableFile2 :: GHC.Word.Word32
88    {- HasNoCafRefs, Strictness: m,
89       Unfolding: (GHC.Word.W32# __word 493) -}
90c386fd617f96d4a853f241156b5db3e3
91  copyExecutableFile3 :: GHC.IO.FilePath
92                         -> System.Posix.Types.FileMode
93                         -> GHC.Prim.State# GHC.Prim.RealWorld
94                         -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
95    {- Arity: 3, Strictness: LLL,
96       Unfolding: (\ name :: GHC.IO.FilePath
97                     m :: System.Posix.Types.FileMode
98                     eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
99                   case GHC.IO.Encoding.getFileSystemEncoding1 of wild { (,) getFileSystemEncoding12 setFileSystemEncoding1 ->
100                   case getFileSystemEncoding12
101                          `cast`
102                        (GHC.Types.NTCo:IO (Refl GHC.IO.Encoding.Types.TextEncoding))
103                          eta of wild1 { (#,#) new_s a76 ->
104                   let {
105                     lvl8 :: Data.Maybe.Maybe GHC.Base.String
106                     = Data.Maybe.Just @ GHC.Base.String name
107                   } in
108                   GHC.Foreign.charIsRepresentable3
109                     @ ()
110                     a76
111                     name
112                     (\ s :: Foreign.C.String.CString
113                        s1 :: GHC.Prim.State# GHC.Prim.RealWorld ->
114                      case s `cast`
115                           (GHC.Ptr.Ptr
116                                (Foreign.C.Types.NTCo:CChar)) of ds2 { GHC.Ptr.Ptr ds3 ->
117                      case m `cast`
118                           (System.Posix.Types.NTCo:CMode) of ds4 { GHC.Word.W32# ds5 ->
119                      case {__pkg_ccall base chmod GHC.Prim.Addr#
120                                                   -> GHC.Prim.Word#
121                                                   -> GHC.Prim.State# GHC.Prim.RealWorld
122                                                   -> (# GHC.Prim.State# GHC.Prim.RealWorld,
123                                                         GHC.Prim.Int# #)}
124                             ds3
125                             ds5
126                             s1 of wild2 { (#,#) ds7 ds8 ->
127                      case GHC.Prim.narrow32Int# ds8 of wild3 {
128                        DEFAULT -> (# ds7, GHC.Tuple.() #)
129                        (-1)
130                        -> case {__pkg_ccall base __hscore_get_errno GHC.Prim.State#
131                                                                         GHC.Prim.RealWorld
132                                                                     -> (# GHC.Prim.State#
133                                                                               GHC.Prim.RealWorld,
134                                                                           GHC.Prim.Int# #)}
135                                  ds7 of wild4 { (#,#) ds ds1 ->
136                           case (GHC.IO.Exception.ioError
137                                   @ Foreign.C.Types.CInt
138                                   (Foreign.C.Error.errnoToIOError
139                                      CopyFile.copyExecutableFile4
140                                      (GHC.Int.I32# (GHC.Prim.narrow32Int# ds1))
141                                        `cast`
142                                      (Trans
143                                           (Sym (Foreign.C.Types.NTCo:CInt))
144                                           (Sym (Foreign.C.Error.NTCo:Errno)))
145                                      (Data.Maybe.Nothing @ GHC.IO.Handle.Types.Handle)
146                                      lvl8))
147                                  `cast`
148                                (GHC.Types.NTCo:IO (Refl Foreign.C.Types.CInt))
149                                  ds of wild5 { (#,#) new_s1 a2 ->
150                           (# new_s1, GHC.Tuple.() #) } } } } } })
151                       `cast`
152                     ((->)
153                          (Refl Foreign.C.String.CString)
154                          (Sym (GHC.Types.NTCo:IO (Refl ()))))
155                     new_s } }) -}
156ff297c6d061d4c0e61130b2015372b21
157  copyExecutableFile4 :: [GHC.Types.Char]
158    {- Unfolding: (GHC.CString.unpackCString# "setFileMode") -}
159a674672c5b2b74790594f567381f80ce
160  copyExecutableFile5 :: GHC.IO.FilePath
161                         -> GHC.IO.FilePath
162                         -> GHC.Prim.State# GHC.Prim.RealWorld
163                         -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
164    {- Arity: 3, Strictness: LLL -}
16558c6279acaaf2c0381787134c888d941
166  copyOrdinaryFile :: GHC.IO.FilePath
167                      -> GHC.IO.FilePath
168                      -> GHC.Types.IO ()
169    {- Arity: 3, Strictness: LLL,
170       Unfolding: (CopyFile.copyOrdinaryFile1
171                     `cast`
172                   ((->)
173                        (Refl GHC.IO.FilePath)
174                        ((->)
175                             (Refl GHC.IO.FilePath) (Sym (GHC.Types.NTCo:IO (Refl ())))))) -}
1764cc4b4d0d71797c4126dc49d7d194826
177  copyOrdinaryFile1 :: GHC.IO.FilePath
178                       -> GHC.IO.FilePath
179                       -> GHC.Prim.State# GHC.Prim.RealWorld
180                       -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
181    {- Arity: 3, Strictness: LLL,
182       Unfolding: (\ src :: GHC.IO.FilePath
183                     dest :: GHC.IO.FilePath
184                     eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
185                   case CopyFile.copyExecutableFile5
186                          src
187                          dest
188                          eta of wild { (#,#) new_s a2 ->
189                   CopyFile.copyExecutableFile3
190                     dest
191                     CopyFile.copyOrdinaryFile2
192                       `cast`
193                     (Sym (System.Posix.Types.NTCo:CMode))
194                     new_s }) -}
195fa882f7d1b3409b6d4f657238f3881a5
196  copyOrdinaryFile2 :: GHC.Word.Word32
197    {- HasNoCafRefs, Strictness: m,
198       Unfolding: (GHC.Word.W32# __word 420) -}
199ee778be5efe7c11a74d1a69ee035808b
200  myCopyFile :: GHC.IO.FilePath -> GHC.IO.FilePath -> GHC.Types.IO ()
201    {- Arity: 3, Strictness: LLL,
202       Unfolding: (CopyFile.copyExecutableFile5
203                     `cast`
204                   ((->)
205                        (Refl GHC.IO.FilePath)
206                        ((->)
207                             (Refl GHC.IO.FilePath) (Sym (GHC.Types.NTCo:IO (Refl ())))))) -}
2082b731b2e2b404673a2e66a9cdb0841e5
209  setDirOrdinary :: GHC.IO.FilePath -> GHC.Types.IO ()
210    {- Arity: 2, Strictness: LL,
211       Unfolding: (CopyFile.setDirOrdinary1
212                     `cast`
213                   ((->)
214                        (Refl GHC.IO.FilePath) (Sym (GHC.Types.NTCo:IO (Refl ()))))) -}
215615b4a0e0dad8ed42827d537922dd9fb
216  setDirOrdinary1 :: GHC.IO.FilePath
217                     -> GHC.Prim.State# GHC.Prim.RealWorld
218                     -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
219    {- Arity: 2, Strictness: LL,
220       Unfolding: (\ path :: GHC.IO.FilePath
221                     eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
222                   CopyFile.copyExecutableFile3
223                     path
224                     CopyFile.copyExecutableFile2
225                       `cast`
226                     (Sym (System.Posix.Types.NTCo:CMode))
227                     eta) -}
2282fd0451d2b79b6af69d4591048658288
229  setFileExecutable :: GHC.IO.FilePath -> GHC.Types.IO ()
230    {- Arity: 2, Strictness: LL,
231       Unfolding: (CopyFile.setDirOrdinary1
232                     `cast`
233                   ((->)
234                        (Refl GHC.IO.FilePath) (Sym (GHC.Types.NTCo:IO (Refl ()))))) -}
235a980a54af610ad8647433a84278e41fc
236  setFileOrdinary :: GHC.IO.FilePath -> GHC.Types.IO ()
237    {- Arity: 2, Strictness: LL,
238       Unfolding: (CopyFile.setFileOrdinary1
239                     `cast`
240                   ((->)
241                        (Refl GHC.IO.FilePath) (Sym (GHC.Types.NTCo:IO (Refl ()))))) -}
242f8187232b5b00aabac88625e82413e7a
243  setFileOrdinary1 :: GHC.IO.FilePath
244                      -> GHC.Prim.State# GHC.Prim.RealWorld
245                      -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
246    {- Arity: 2, Strictness: LL,
247       Unfolding: (\ path :: GHC.IO.FilePath
248                     eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
249                   CopyFile.copyExecutableFile3
250                     path
251                     CopyFile.copyOrdinaryFile2
252                       `cast`
253                     (Sym (System.Posix.Types.NTCo:CMode))
254                     eta) -}
255vectorised variables:
256vectorised tycons:
257vectorised reused tycons:
258scalar variables:
259scalar tycons:
260trusted: none
261require own pkg trusted: False