ff858ec · typeable/digit

digit.cabal−1

@@ -12,7 +12,6 @@ library

12 build-depends: base

13 , QuickCheck

14 , lens

15− , missing-lens

16 , regex-applicative

15 , regex-applicative

17 , text

16 , text

18 default-language: Haskell2010

17 default-language: Haskell2010

src/Data/Digit.hs+1−1

@@ -23,7 +23,6 @@ module Data.Digit

23 ) where

24

25import Control.Lens

26−import Control.Lens.Missing

27import Data.Foldable as F

26import Data.Foldable as F

28import Data.List as L

27import Data.List as L

29import Data.List.NonEmpty as NE

28import Data.List.NonEmpty as NE

@@ -117,6 +116,7 @@ _Digits = below _Digit

117

116

118_DigitsText :: Prism' Text (NE.NonEmpty Digit)

117_DigitsText :: Prism' Text (NE.NonEmpty Digit)

119_DigitsText = from packed . _Digits . _NonEmptyList

118_DigitsText = from packed . _Digits . _NonEmptyList

119+ where _NonEmptyList = prism' NE.toList NE.nonEmpty

120

121_DigitsInt :: Integral n => Prism' n NormalDigits

122_DigitsInt = prism' (digitsToNum . unDigits) positiveIntToDigits

stack.yaml+1−5

@@ -1,8 +1,4 @@

1−resolver: lts-19.0

1+resolver: lts-20.3

2

3packages:

4- .

5−

6−extra-deps:

7−- git: https://github.com/typeable/missing-lens.git

8− commit: 328659fdda8fd7ec509abfab6298775062fc2926