File tree Expand file tree Collapse file tree 2 files changed +5
-11
lines changed Expand file tree Collapse file tree 2 files changed +5
-11
lines changed Original file line number Diff line number Diff line change @@ -56,6 +56,7 @@ parseComponent :: Indent -> Parser Component
56
56
parseComponent i =
57
57
parseExe i
58
58
<|> parseLib i
59
+ <|> parseBench i
59
60
<|> parseTestSuite i
60
61
61
62
parseLib :: Indent -> Parser Component
Original file line number Diff line number Diff line change @@ -28,8 +28,10 @@ spec = do
28
28
`shouldParse` Comp Lib " " " src"
29
29
describe " Should Succeed"
30
30
$ it " successfully parses bench section"
31
- $ benchSection ~> parseBench 0
32
- `shouldParse` Comp Bench " folds" " benchmarks/folds.hs"
31
+ $ do
32
+ bs <- T. readFile " test/benchSection"
33
+ bs ~> parseBench 0
34
+ `shouldParse` Comp Bench " folds" " benchmarks/folds.hs"
33
35
describe " Should Succeed"
34
36
$ it " successfully parses package"
35
37
$ fullFile ~> parsePackage
@@ -106,15 +108,6 @@ libSection =
106
108
\ default-language: Haskell2010\n \
107
109
\"
108
110
109
- benchSection :: Text
110
- benchSection =
111
- " benchmark folds\n \
112
- \ default-language: Haskell2010\n \
113
- \ hs-source-dirs: benchmarks\n \
114
- \ ghc-options: -Wall -threaded\n \
115
- \ type: exitcode-stdio-1.0\n \
116
- \ main-is: folds.hs\n "
117
-
118
111
stackHie :: String
119
112
stackHie =
120
113
" cradle:\n \
You can’t perform that action at this time.
0 commit comments