Fix compiler warnings

                                               as Build

import           Data.Vector                    ( Vector )

import qualified Data.Vector                   as V

import qualified Data.Vector.Algorithms.Intro  as V

import           Data.Text                      ( Text )

import qualified Data.Text                     as T

import           Lens.Micro.Platform

import           Mdp.Types

  in  foldMap (uncurry (choicesB partition)) (M.toList stateMap)

choicesB :: Maybe Partition -> Int -> [Transition] -> Build.Builder

choicesB partition source ts =

choicesB partition src ts =

  let choiceMap :: IntMap [Transition] =

        foldl' (\m t -> M.insertWith (++) (t ^. choice) [t] m) M.empty ts

  in  stateB source

  in  stateB src

      <> ": "

      <> partStart partition

      <> "{"

  where

    partStart Nothing = ""

    partStart (Just part) =

      "(" <> Build.decimal (stateAssignment part V.! source) <> ", "

      "(" <> Build.decimal (stateAssignment part V.! src) <> ", "

    partEnd Nothing  = ""

    partEnd (Just _) = ")"

transitionB :: Int -> [Transition] -> Build.Builder

transitionB choice successors =

transitionB choi successors =

  "("

    <> Build.decimal choice

    <> Build.decimal choi

    <> ", {"

    <> fold (intersperse ", " (map successorB successors))

    <> "})"

  let

    nums    = mdp ^. numStates

    (numa, transMap) = mkValmariMap mdp

    numc    = mdp ^. numChoices

    actions = V.fromList (concatMap mkChoices (M.toList transMap))

    probs   = V.fromList (concatMap mkTransitions (transMap ^.. each . each))

    stateByChoice = M.fromListWith