ENH kinda finalize shadow match rules

dhall/common.dhall

@@ -4,7 +4,7 @@ let List/map =
 
 let T =
       ./Types.dhall
-        sha256:381b63c7dc210ab55f61a4ff6198fcd5d3922ba587b19dbd8e0834f269f05e13
+        sha256:3c6121710cb1d4ed84d9cb7ab6589fdcea79d1e4e07b33b22bd84e52506ea80f
 
 let nullSplit =
       \(a : T.SplitAcnt) ->

lib/Internal/Insert.hs

@@ -442,7 +442,7 @@ checkAcntTypes ts i f = (go =<<) <$> lookupAccountType i
   where
     go t
       | t `L.elem` ts = Right $ f i
-      | otherwise = Left $ AccountError i t
+      | otherwise = Left $ AccountError i ts
 
 --------------------------------------------------------------------------------
 -- statements

lib/Internal/Types.hs

@@ -12,6 +12,7 @@ import Dhall.TH
 import Language.Haskell.TH.Syntax (Lift)
 import RIO
 import qualified RIO.Map as M
+import qualified RIO.NonEmpty as NE
 import qualified RIO.Text as T
 import RIO.Time
 import Text.Regex.TDFA
@@ -53,7 +54,7 @@ makeHaskellTypesWith
   , SingleConstructor "Income" "Income" "(./dhall/Types.dhall).Income"
   , SingleConstructor "Budget" "Budget" "(./dhall/Types.dhall).Budget"
   , SingleConstructor "Transfer" "Transfer" "(./dhall/Types.dhall).Transfer"
-  , SingleConstructor "ShadowMatch" "ShadowMatch" "(./dhall/Types.dhall).ShadowMatch"
+  , SingleConstructor "ShadowMatch" "ShadowMatch" "(./dhall/Types.dhall).ShadowMatch.Type"
   , SingleConstructor "ShadowTransfer" "ShadowTransfer" "(./dhall/Types.dhall).ShadowTransfer"
   ]
 
@@ -597,7 +598,7 @@ data PatternSuberr = ZeroLength | ZeroRepeats deriving (Show)
 data InsertError
   = RegexError !T.Text
   | MatchValPrecisionError !Natural !Natural
-  | AccountError !AcntID !AcntType
+  | AccountError !AcntID !(NE.NonEmpty AcntType)
   | InsertIOError !T.Text
   | ParseError !T.Text
   | ConversionError !T.Text

lib/Internal/Utils.hs

@@ -43,6 +43,7 @@ import Internal.Types
 import RIO
 import qualified RIO.List as L
 import qualified RIO.Map as M
+import qualified RIO.NonEmpty as NE
 import qualified RIO.Text as T
 import RIO.Time
 import Text.Regex.TDFA
@@ -319,8 +320,15 @@ showError other = (: []) $ case other of
     where
       showGreg (Just g) = showGregorian_ g
       showGreg Nothing = "Inf"
-  -- TODO define
-  (AccountError _ _) -> undefined
+  (AccountError a ts) ->
+    T.unwords
+      [ "account type of key"
+      , singleQuote a
+      , "is not one of:"
+      , ts_
+      ]
+    where
+      ts_ = T.intercalate ", " $ NE.toList $ fmap atName ts
   (PatternError s b r p) -> T.unwords [msg, "in pattern: ", pat]
     where
       pat =