@@ -296,22 +296,22 @@ main = do
296
296
297
297
test " rename - single level deep"
298
298
(rename (alterExtension (const Nothing )) (file (SProxy :: SProxy "image .png ")))
299
- (file $ SProxy :: SProxy "image ")
299
+ (file ( SProxy :: SProxy "image ") )
300
300
301
301
test """ extension (Name ".foo") == Nothing"""
302
- (extension (reflectName $ SProxy :: SProxy ".foo "))
302
+ (extension (reflectName ( SProxy :: SProxy ".foo ") ))
303
303
(Nothing )
304
304
test """ extension (Name "foo.") == Nothing"""
305
- (extension (reflectName $ SProxy :: SProxy "foo ."))
305
+ (extension (reflectName ( SProxy :: SProxy "foo .") ))
306
306
(Nothing )
307
307
test """ extension (Name "foo") == Nothing"""
308
- (extension (reflectName $ SProxy :: SProxy "foo "))
308
+ (extension (reflectName ( SProxy :: SProxy "foo ") ))
309
309
(Nothing )
310
310
test """ extension (Name ".") == Nothing"""
311
- (extension (reflectName $ SProxy :: SProxy "."))
311
+ (extension (reflectName ( SProxy :: SProxy ".") ))
312
312
(Nothing )
313
313
test """ extension (Name "foo.baz") == (Just "baz")"""
314
- (extension (reflectName $ SProxy :: SProxy "foo .baz "))
314
+ (extension (reflectName ( SProxy :: SProxy "foo .baz ") ))
315
315
(NES .fromString " baz" )
316
316
317
317
test " sandbox - fail when relative path lies outside sandbox (above)"
@@ -344,11 +344,11 @@ main = do
344
344
345
345
test " parseRelFile - image.png"
346
346
(parseRelFile posixParser " image.png" )
347
- (Just $ file $ SProxy :: SProxy "image .png ")
347
+ (Just $ file ( SProxy :: SProxy "image .png ") )
348
348
349
349
test " parseRelFile - ./image.png"
350
350
(parseRelFile posixParser " ./image.png" )
351
- (Just $ file $ SProxy :: SProxy "image .png ")
351
+ (Just $ file ( SProxy :: SProxy "image .png ") )
352
352
353
353
test " parseRelFile - foo/image.png"
354
354
(parseRelFile posixParser " foo/image.png" )
0 commit comments