File tree Expand file tree Collapse file tree 2 files changed +8
-7
lines changed Expand file tree Collapse file tree 2 files changed +8
-7
lines changed Original file line number Diff line number Diff line change @@ -68,7 +68,7 @@ library
68
68
, containers >= 0.5 && < 0.7
69
69
, dlist >= 0.8 && < 0.9
70
70
, exceptions >= 0.6 && < 0.11
71
- , ghc-lib-parser >= 8.8.1 && < 8.8.2
71
+ , ghc-lib-parser >= 8.8.1 && < 8.8.3
72
72
, mtl >= 2.0 && < 3.0
73
73
, syb >= 0.7 && < 0.8
74
74
, text >= 0.2 && < 1.3
@@ -132,7 +132,7 @@ test-suite tests
132
132
, filepath >= 1.2 && < 1.5
133
133
, hspec >= 2.0 && < 3.0
134
134
, ormolu
135
- , path >= 0.6 && < 0.7
135
+ , path >= 0.6 && < 0.8
136
136
, path-io >= 1.4.2 && < 2.0
137
137
, text >= 0.2 && < 1.3
138
138
build-tools : hspec-discover >= 2.0 && < 3.0
@@ -150,9 +150,9 @@ executable ormolu
150
150
main-is : Main.hs
151
151
hs-source-dirs : app
152
152
build-depends : base >= 4.12 && < 5.0
153
- , ghc-lib-parser >= 8.8.1 && < 8.8.2
153
+ , ghc-lib-parser >= 8.8.1 && < 8.8.3
154
154
, gitrev >= 1.3 && < 1.4
155
- , optparse-applicative >= 0.14 && < 0.15
155
+ , optparse-applicative >= 0.14 && < 0.16
156
156
, ormolu
157
157
, text >= 0.2 && < 1.3
158
158
other-modules : Paths_ormolu
Original file line number Diff line number Diff line change @@ -15,7 +15,8 @@ import qualified Data.Text.IO as T
15
15
import Ormolu
16
16
import Path
17
17
import Path.IO
18
- import System.FilePath (addExtension , dropExtensions , splitExtensions )
18
+ import qualified System.FilePath as F
19
+
19
20
import Test.Hspec
20
21
21
22
spec :: Spec
@@ -53,14 +54,14 @@ locateExamples =
53
54
isInput :: Path Rel File -> Bool
54
55
isInput path =
55
56
let s = fromRelFile path
56
- (s', exts) = splitExtensions s
57
+ (s', exts) = F. splitExtensions s
57
58
in exts == " .hs" && not (" -out" `isSuffixOf` s')
58
59
59
60
-- | For given path of input file return expected name of output.
60
61
deriveOutput :: Path Rel File -> IO (Path Rel File )
61
62
deriveOutput path =
62
63
parseRelFile $
63
- addExtension (dropExtensions (fromRelFile path) ++ " -out" ) " hs"
64
+ F. addExtension (F. dropExtensions (fromRelFile path) ++ " -out" ) " hs"
64
65
65
66
-- | A version of 'shouldBe' that is specialized to comparing 'Text' values.
66
67
-- It also prints multi-line snippets in a more readable form.
You can’t perform that action at this time.
0 commit comments