@@ -23,7 +23,6 @@ module Data.Digit
2323 ) where
2424
2525import Control.Lens
26−import Control.Lens.Missing
2726import Data.Foldable as F
2827import Data.List as L
2928import Data.List.NonEmpty as NE
@@ -117,6 +116,7 @@ _Digits = below _Digit
117116
118117_DigitsText :: Prism' Text (NE.NonEmpty Digit)
119118_DigitsText = from packed . _Digits . _NonEmptyList
119+ where _NonEmptyList = prism' NE.toList NE.nonEmpty
120120
121121_DigitsInt :: Integral n => Prism' n NormalDigits
122122_DigitsInt = prism' (digitsToNum . unDigits) positiveIntToDigits