updated to most recent LTS

This commit is contained in:
Jonathan Lamothe 2023-03-09 14:24:20 -05:00
parent 0db09b0420
commit f0886633f8
6 changed files with 16 additions and 17 deletions

View File

@ -1,3 +1,5 @@
# Changelog for subfix # Changelog for subfix
## Unreleased changes ## 0.1.0.1
- Updated to current LTS

View File

@ -1,5 +1,5 @@
name: subfix name: subfix
version: 0.1.0 version: 0.1.0.1
license: GPL-3 license: GPL-3
author: "Jonathan Lamothe" author: "Jonathan Lamothe"
maintainer: "jonathan@jlamothe.net" maintainer: "jonathan@jlamothe.net"
@ -51,4 +51,4 @@ tests:
- -with-rtsopts=-N - -with-rtsopts=-N
dependencies: dependencies:
- subfix - subfix
- hspec >=2.7.4 && <2.8 - hspec >=2.9.7 && <2.10

View File

@ -17,8 +17,7 @@
# #
# resolver: ./custom-snapshot.yaml # resolver: ./custom-snapshot.yaml
# resolver: https://example.com/snapshots/2018-01-01.yaml # resolver: https://example.com/snapshots/2018-01-01.yaml
resolver: resolver: lts-20.13
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/20.yaml
# User packages to be built. # User packages to be built.
# Various formats can be used as shown in the example below. # Various formats can be used as shown in the example below.

View File

@ -6,8 +6,7 @@
packages: [] packages: []
snapshots: snapshots:
- completed: - completed:
size: 532177 sha256: b37c0abab16c7de352c45b85f8ecc8530b084209a2c42987a96c92b4a5e3cd65
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/20.yaml size: 648924
sha256: 0e14ba5603f01e8496e8984fd84b545a012ca723f51a098c6c9d3694e404dc6d url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/20/13.yaml
original: original: lts-20.13
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/20.yaml

View File

@ -1,13 +1,11 @@
cabal-version: 1.12 cabal-version: 1.12
-- This file has been generated from package.yaml by hpack version 0.34.4. -- This file has been generated from package.yaml by hpack version 0.35.1.
-- --
-- see: https://github.com/sol/hpack -- see: https://github.com/sol/hpack
--
-- hash: d27dd9ccaaf539b7d1e0fc8be1df5576122d1476e8235b5a3dee69a33e391c9f
name: subfix name: subfix
version: 0.1.0 version: 0.1.0.1
synopsis: Fixes .srt files synopsis: Fixes .srt files
description: Please see the README on GitHub at <https://github.com/jlamothe/subfix#readme> description: Please see the README on GitHub at <https://github.com/jlamothe/subfix#readme>
category: Utilities category: Utilities
@ -66,6 +64,6 @@ test-suite subfix-test
ghc-options: -Wall -threaded -rtsopts -with-rtsopts=-N ghc-options: -Wall -threaded -rtsopts -with-rtsopts=-N
build-depends: build-depends:
base >=4.7 && <5 base >=4.7 && <5
, hspec >=2.7.4 && <2.8 , hspec >=2.9.7 && <2.10
, subfix , subfix
default-language: Haskell2010 default-language: Haskell2010

View File

@ -20,6 +20,7 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
module SubFix.DecodeSpec (spec) where module SubFix.DecodeSpec (spec) where
import Data.Either (fromRight, fromLeft)
import Test.Hspec (Spec, context, describe, it, shouldBe) import Test.Hspec (Spec, context, describe, it, shouldBe)
import SubFix (Caption (..), decode) import SubFix (Caption (..), decode)
@ -30,7 +31,7 @@ spec = describe "decode" $ do
context "valid inputs" $ mapM_ context "valid inputs" $ mapM_
( \(label, input, expected) -> ( \(label, input, expected) ->
context label $ do context label $ do
let Right results = decode input let results = fromRight (error "Left") $ decode input
context "number of results" $ let context "number of results" $ let
rlen = length results rlen = length results
@ -57,7 +58,7 @@ spec = describe "decode" $ do
context "invalid inputs" $ mapM_ context "invalid inputs" $ mapM_
( \(label, input, expected) -> ( \(label, input, expected) ->
context label $ let context label $ let
Left result = decode input result = fromLeft (error "Right") $ decode input
in it ("should be: " ++ expected) $ in it ("should be: " ++ expected) $
result `shouldBe` expected result `shouldBe` expected
) )