{"header":{"message":"Add missing files","description":null,"timestamp":"2024-03-17T16:08:20.358948594Z","authors":[{}]},"hash":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC","authors":[{"login":"wgaffa","key":"Fh9V5Mu9d5zHhjimi3PXt2ZewZ6oA7hqNnt9bvGydN7N"}],"deps":{"hashes":[["DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC","Add missing files"],["AA",null],["FCKXFNKSGWZEQ5P4MPTJQM55EZC7J7R7UOP7SV3XXYSLJPC55ELAC","Add an iteration for the EDSL for manipulating a decklist"],["XBFPOITOZLMUZROJCW2YAUHFTVKPZMRO5GQL36BACBS2ELIU4R4QC","Diff refactoring using the Tagless Final approach"],["C3BUGSBWBKOXFFB6TIHDLQVFV65OKKW6KEUVMP4O2XP3RYMPJ5QAC","Implement FromFields for NonEmptyText and PositiveNumber"],["WIHPB3GXBYKWLOVPHSLFXHBCX53ZXAQ6LRJMYUQYDE4BRYV6YSMQC","Formatting"],["FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC","Skeleton to create a NanoID"],["U3PXWO2PKW4XI4NXYMEQT44SXBQDVFZBDBW6YYOFSMANGI53V4ZQC","Changed diff so that we compose category and quantity changes into one constructor"],["XAMFHYIWLYWVS52I3PNB7QB2YUBJQI3ORGFRTJOKW55GOFTYWRYQC","Find cards removed and added to deck"],["SNYOEZI7JMTLJNLM2YTAHBPJEKK2BJZJDOHRIX5676JCF2VNET3QC","Skeleton project"],["FMGVXDGYAU36I3WXAAM77IITTMQ3IF3J66FQKOD6IULF5VYXMB7AC","Detect changes in quantity of cards added/removed"]],"deps":["FCKXFNKSGWZEQ5P4MPTJQM55EZC7J7R7UOP7SV3XXYSLJPC55ELAC","XBFPOITOZLMUZROJCW2YAUHFTVKPZMRO5GQL36BACBS2ELIU4R4QC"],"known":["XAMFHYIWLYWVS52I3PNB7QB2YUBJQI3ORGFRTJOKW55GOFTYWRYQC","WIHPB3GXBYKWLOVPHSLFXHBCX53ZXAQ6LRJMYUQYDE4BRYV6YSMQC","C3BUGSBWBKOXFFB6TIHDLQVFV65OKKW6KEUVMP4O2XP3RYMPJ5QAC","FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC","U3PXWO2PKW4XI4NXYMEQT44SXBQDVFZBDBW6YYOFSMANGI53V4ZQC"]},"hunks":[{"FileAdd":{"meta":{"basename":"StateRep.hs","metadata":0},"context":[{"change":10,"pos":157}],"contents":[{"Add":{"text":"{-# LANGUAGE DeriveFunctor #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:67"}},{"Add":{"text":"{-# LANGUAGE FlexibleInstances #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:102"}},{"Add":{"text":"{-# LANGUAGE GeneralisedNewtypeDeriving #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:146"}},{"Add":{"text":"{-# LANGUAGE TypeFamilies #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:176"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:177"}},{"Add":{"text":"module StateRep (","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:195"}},{"Add":{"text":" RDefault,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:209"}},{"Add":{"text":" CardMap,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:222"}},{"Add":{"text":" R,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:229"}},{"Add":{"text":" eval,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:239"}},{"Add":{"text":" evalMany,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:253"}},{"Add":{"text":") where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:261"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:262"}},{"Add":{"text":"import Control.Monad.State","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:289"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:290"}},{"Add":{"text":"import Data.Foldable","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:311"}},{"Add":{"text":"import Data.Map (Map)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:333"}},{"Add":{"text":"import qualified Data.Map as Map","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:366"}},{"Add":{"text":"import Data.Text (Text)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:390"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:391"}},{"Add":{"text":"import Refined","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:406"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:407"}},{"Add":{"text":"import Deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:419"}},{"Add":{"text":"import Diff","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:431"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:432"}},{"Add":{"text":"type CardMap = Map Text Card","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:461"}},{"Add":{"text":"type RDefault = R (State CardMap)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:495"}},{"Add":{"text":"newtype R m a = R {unR :: m a} deriving (Functor, Applicative, Monad)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:565"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:566"}},{"Add":{"text":"instance DeckSYM (R (State CardMap)) where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:609"}},{"Add":{"text":" add x = R $ do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:628"}},{"Add":{"text":" deck <- get","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:648"}},{"Add":{"text":" put $ Map.insert (unrefine . runText $ name x) x deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:710"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:711"}},{"Add":{"text":" remove cardName = R $ do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:740"}},{"Add":{"text":" deck <- get","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:760"}},{"Add":{"text":" put $ Map.delete (unrefine . runText $ cardName) deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:822"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:823"}},{"Add":{"text":"instance HunkSYM (R (State CardMap)) where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:866"}},{"Add":{"text":" lookup x = R $ do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:888"}},{"Add":{"text":" deck <- get","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:908"}},{"Add":{"text":" cardName <- unR x","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:934"}},{"Add":{"text":" return $ Map.lookup cardName deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:976"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:977"}},{"Add":{"text":" chunk oldCardName f = R $ do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1010"}},{"Add":{"text":" cardFunction <- unR . sequence $ f","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1053"}},{"Add":{"text":" decklist <- get","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1077"}},{"Add":{"text":" case Map.lookup (unrefine . runText $ oldCardName) decklist of","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1148"}},{"Add":{"text":" Nothing -> return ()","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1181"}},{"Add":{"text":" Just oldCard ->","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1209"}},{"Add":{"text":" let newCard = foldl' (\\acc cardUpd -> cardUpd acc) oldCard cardFunction","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1297"}},{"Add":{"text":" in put $","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1323"}},{"Add":{"text":" Map.update (const $ Just newCard) (unrefine . runText $ oldCardName) decklist","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1425"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1426"}},{"Add":{"text":" modifyCopies newCopies = do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1458"}},{"Add":{"text":" return $ \\oldCard -> do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1490"}},{"Add":{"text":" let newQuantity = newCopies . quantity $ oldCard","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1551"}},{"Add":{"text":" oldCard {quantity = newQuantity}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1596"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1597"}},{"Add":{"text":" modifyCategory categoryF = do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1631"}},{"Add":{"text":" return $ \\oldCard -> do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1663"}},{"Add":{"text":" let newCategory = categoryF . Deck.category $ oldCard","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1729"}},{"Add":{"text":" oldCard {Deck.category = newCategory}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1779"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1780"}},{"Add":{"text":" move x = const <$> x","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1805"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1806"}},{"Add":{"text":"eval :: R (State CardMap) a -> CardMap","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1845"}},{"Add":{"text":"eval = flip execState mempty . unR","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1880"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1881"}},{"Add":{"text":"evalMany :: (Traversable t) => t (RDefault ()) -> CardMap","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1939"}},{"Add":{"text":"evalMany x = flip execState mempty $ mapM unR x","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:1987"}}]}},{"FileAdd":{"meta":{"basename":"Parser.hs","metadata":0},"context":[{"change":10,"pos":157}],"contents":[{"Add":{"text":"{-# LANGUAGE LambdaCase #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2051"}},{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2086"}},{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2119"}},{"Add":{"text":"{-# LANGUAGE TypeApplications #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2153"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2154"}},{"Add":{"text":"module Parser (","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2170"}},{"Add":{"text":" ReadError (..),","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2190"}},{"Add":{"text":" readCard,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2204"}},{"Add":{"text":" readDeckList,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2222"}},{"Add":{"text":") where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2230"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2231"}},{"Add":{"text":"import Control.Arrow","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2252"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2253"}},{"Add":{"text":"import Data.Bifunctor","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2275"}},{"Add":{"text":"import Data.Either.Extra","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2300"}},{"Add":{"text":"import Data.List.Extra","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2323"}},{"Add":{"text":"import Data.Text (Text)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2347"}},{"Add":{"text":"import qualified Data.Text as T","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2379"}},{"Add":{"text":"import qualified Data.Text.IO as TIO","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2416"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2417"}},{"Add":{"text":"import Text.Read (readMaybe)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2446"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2447"}},{"Add":{"text":"import GHC.Natural","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2466"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2467"}},{"Add":{"text":"import Refined hiding (validate)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2500"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2501"}},{"Add":{"text":"import Deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2513"}},{"Add":{"text":"import Diff","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2525"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2526"}},{"Add":{"text":"data ReadError = IllegalFormat | RefineError !RefineException deriving (Show)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2604"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2605"}},{"Add":{"text":"readCard :: Category -> Text -> Either [ReadError] Card","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2661"}},{"Add":{"text":"readCard c n =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2676"}},{"Add":{"text":" let toError (l, r) = case l of","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2711"}},{"Add":{"text":" Nothing -> Left $ singleton IllegalFormat","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2765"}},{"Add":{"text":" Just x -> Right (x, r)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2800"}},{"Add":{"text":" refined :: (Predicate p a) => a -> Either ReadError (Refined p a)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2874"}},{"Add":{"text":" refined = mapLeft RefineError . refine","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2921"}},{"Add":{"text":" validate =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:2940"}},{"Add":{"text":" arr (fmap PositiveNumber . refined) *** arr (fmap NonEmptyText . refined)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3026"}},{"Add":{"text":" >>> arr","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3050"}},{"Add":{"text":" ( \\case","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3078"}},{"Add":{"text":" (Right x, Right y) -> Right (x, y)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3137"}},{"Add":{"text":" (Left x, Left y) -> Left [x, y]","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3193"}},{"Add":{"text":" (Left x, _) -> Left $ singleton x","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3251"}},{"Add":{"text":" (_, Left x) -> Left $ singleton x","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3309"}},{"Add":{"text":" )","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3331"}},{"Add":{"text":" toCard tup = (\\(x, y) -> Card y x c) <$> validate tup","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3393"}},{"Add":{"text":" in (toError . bimap (readMaybe @Natural) T.pack . word1 . T.unpack $ n)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3470"}},{"Add":{"text":" >>= toCard","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3493"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3494"}},{"Add":{"text":"readDeckList :: (DeckSYM repr) => FilePath -> IO (Either [ReadError] [repr ()])","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3574"}},{"Add":{"text":"readDeckList p = do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3594"}},{"Add":{"text":" content <- windowsToLinuxNewLine <$> TIO.readFile p","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3650"}},{"Add":{"text":" let (mb, sb) = T.breakOn \"\\n\\n\" content","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3694"}},{"Add":{"text":" mb' = mapM (readCard mainboard) (T.lines mb)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3747"}},{"Add":{"text":" sb' = mapM (readCard sideboard) (T.lines . T.stripStart $ sb)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3817"}},{"Add":{"text":" return $ fmap add <$> liftA2 (++) mb' sb'","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3863"}},{"Add":{"text":" where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3871"}},{"Add":{"text":" windowsToLinuxNewLine = T.replace \"\\r\\n\" \"\\n\"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3921"}}]}},{"FileAdd":{"meta":{"basename":"Diff.hs","metadata":0},"context":[{"change":10,"pos":157}],"contents":[{"Add":{"text":"{-# LANGUAGE TypeApplications #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:3989"}},{"Add":{"text":"{-# LANGUAGE TypeFamilies #-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4019"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4020"}},{"Add":{"text":"module Diff (","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4034"}},{"Add":{"text":" HunkSYM (..),","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4052"}},{"Add":{"text":" DeckSYM (..),","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4070"}},{"Add":{"text":" diff,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4080"}},{"Add":{"text":") where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4088"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4089"}},{"Add":{"text":"import Data.Map (Map)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4111"}},{"Add":{"text":"import qualified Data.Map as Map","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4144"}},{"Add":{"text":"import Data.Text (Text)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4168"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4169"}},{"Add":{"text":"import Refined","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4184"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4185"}},{"Add":{"text":"import Deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4197"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4198"}},{"Add":{"text":"class DeckSYM repr where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4223"}},{"Add":{"text":" -- | Add a card to the deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4255"}},{"Add":{"text":" add :: Card -> repr ()","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4282"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4283"}},{"Add":{"text":" -- | Remove a card from the deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4320"}},{"Add":{"text":" remove :: CardName -> repr ()","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4354"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4355"}},{"Add":{"text":"class HunkSYM repr where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4380"}},{"Add":{"text":" -- | A diff chunk for a card","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4413"}},{"Add":{"text":" chunk :: (Traversable t) => CardName -> t (repr (Card -> Card)) -> repr ()","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4492"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4493"}},{"Add":{"text":" modifyCopies :: (PositiveNumber -> PositiveNumber) -> repr (Card -> Card)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4571"}},{"Add":{"text":" modifyCategory :: (Category -> Category) -> repr (Card -> Card)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4639"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4640"}},{"Add":{"text":" -- | Lookup a card in the deck","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4675"}},{"Add":{"text":" lookup :: repr Text -> repr (Maybe Card)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4720"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4721"}},{"Add":{"text":" -- | Move a card to another category","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4762"}},{"Add":{"text":" move :: repr Category -> repr (Category -> Category)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4819"}},{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4820"}},{"Add":{"text":"diff :: (HunkSYM repr, DeckSYM repr) => DeckList -> DeckList -> [repr ()]","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4894"}},{"Add":{"text":"diff left right =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4912"}},{"Add":{"text":" let deckSort = map snd . Map.toDescList . runDeckList","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:4970"}},{"Add":{"text":" in go mempty (deckSort left) (deckSort right)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5021"}},{"Add":{"text":" where","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5029"}},{"Add":{"text":" go :: (HunkSYM repr, DeckSYM repr) => [repr ()] -> [Card] -> [Card] -> [repr ()]","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5114"}},{"Add":{"text":" go acc [] [] = acc","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5137"}},{"Add":{"text":" go acc xs [] = acc ++ map (remove . name) xs","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5186"}},{"Add":{"text":" go acc [] ys = acc ++ map add ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5223"}},{"Add":{"text":" go acc lx@(x : xs) ly@(y : ys)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5258"}},{"Add":{"text":" | name x < name y = go (remove (name x) : acc) xs ly","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5319"}},{"Add":{"text":" | name x > name y = go (add x : acc) lx ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5370"}},{"Add":{"text":" | otherwise =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5392"}},{"Add":{"text":" case (partialEqCard quantity x y, partialEqCard category x y) of","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5469"}},{"Add":{"text":" (True, True) -> go acc xs ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5514"}},{"Add":{"text":" (False, False) -> go (chunk (name x) [modifyCopies (const $ quantity y), modifyCategory (const . category $ y)] : acc) xs ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5655"}},{"Add":{"text":" (False, _) -> go (chunk (name x) [] : acc) xs ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5720"}},{"Add":{"text":" (_, False) -> go (chunk (name x) [] : acc) xs ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5785"}}]}},{"Edit":{"inode":{"change":10,"pos":191},"path":"src/Deck.hs","line":127,"atom":{"NewVertex":{"up_context":[{"change":11,"pos":164}],"down_context":[{"change":4,"pos":423}],"flag":"BLOCK","start":5787,"end":6951,"inode":{"change":10,"pos":191}}},"contents":[{"Add":{"text":"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5787"}},{"Add":{"text":"{- | Applies a diff to a decklist. If a card doesn't exist during a change in copies it is ignored.","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5887"}},{"Add":{"text":"| This is ignored because we don't have a concept of default category.","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5958"}},{"Add":{"text":"-}","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:5961"}},{"Add":{"text":"-- applyDiff :: DeckDiff -> DeckList -> DeckList","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6010"}},{"Add":{"text":"-- applyDiff [] ys = ys","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6034"}},{"Add":{"text":"-- applyDiff (x : xs) decklist =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6067"}},{"Add":{"text":"-- case x of","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6084"}},{"Add":{"text":"-- Add a -> applyDiff xs (insert a decklist)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6137"}},{"Add":{"text":"-- Remove a -> delete a decklist","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6178"}},{"Add":{"text":"-- ChangeCard name newQuan newCat ->","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6223"}},{"Add":{"text":"-- let newQuantity = newQuan . quantity <$> card ","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6285"}},{"Add":{"text":"-- newCategory = card <$> newCat","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6334"}},{"Add":{"text":"-- cardQuantity = fromIntegral . unrefine . runNumber . quantity","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6415"}},{"Add":{"text":"-- card = Deck.find name decklist","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6465"}},{"Add":{"text":"-- -- choice =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6496"}},{"Add":{"text":"-- -- either","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6529"}},{"Add":{"text":"-- -- (const $ applyDiff (Remove name : xs) decklist)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6607"}},{"Add":{"text":"-- -- (\\quantity -> update (\\(x', _) -> (x', PositiveNumber quantity)) name decklist)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6717"}},{"Add":{"text":"-- -- choiceFind =","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6752"}},{"Add":{"text":"-- -- maybe","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6784"}},{"Add":{"text":"-- -- decklist","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6823"}},{"Add":{"text":"-- -- (choice . refine . fromIntegral . newQuantity . cardQuantity)","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6915"}},{"Add":{"text":"-- in choiceFind card","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:6950"}}]}},{"Edit":{"inode":{"change":10,"pos":191},"path":"src/Deck.hs","line":152,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":424}],"down_context":[{"change":3,"pos":351}],"flag":"BLOCK","start":6952,"end":7060,"inode":{"change":10,"pos":191}}},"contents":[{"Add":{"text":"-- modifyCard :: (Card -> Card) -> CardName -> DeckList -> DeckList","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7019"}},{"Add":{"text":"-- modifyCard = error \"not implemented\"","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7059"}}]}},{"Replacement":{"inode":{"change":10,"pos":191},"path":"src/Deck.hs","line":155,"ins":{"up_context":[{"change":4,"pos":979}],"down_context":[],"flag":"BLOCK","start":7061,"end":7216,"inode":{"change":10,"pos":191}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":979},"to":{"change":4,"start":47,"end":187},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1266},"to":{"change":4,"start":47,"end":187},"introduced_by":4}],"inode":{"change":10,"pos":191}},"ins_contents":[{"Add":{"text":"-- initDeckList :: IO DeckList","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7091"}},{"Add":{"text":"-- initDeckList = do","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7112"}},{"Add":{"text":"-- gen <- createSystemRandom","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7145"}},{"Add":{"text":"-- nid <- nanoID gen","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7170"}},{"Add":{"text":"-- return . DeckList . Set.fromList $ []","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7215"}}],"del_contents":[{"Del":{"text":"initDeckList :: IO DeckList","pos":"FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC:74"}},{"Del":{"text":"initDeckList = do","pos":"FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC:92"}},{"Del":{"text":" gen <- createSystemRandom","pos":"FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC:122"}},{"Del":{"text":" nid <- nanoID gen","pos":"FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC:144"}},{"Del":{"text":" return . DeckList . Set.fromList $ []","pos":"FUOJJ2E7WNHF2NNKBI7MF254TU5Z5VOEKMO2XAJMY7RDOUQTMG6QC:186"}}]}},{"Edit":{"inode":{"change":10,"pos":249},"path":"mtg.cabal","line":31,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":132}],"down_context":[{"change":10,"pos":563}],"flag":"BLOCK","start":7217,"end":7247,"inode":{"change":10,"pos":249}}},"contents":[{"Add":{"text":" comonad,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7233"}},{"Add":{"text":" mtl,","pos":"DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC:7246"}}]}}],"owner":"wgaffa","repo":"deck-delta","token":"iLAVqArz85/YkHEd6Cim2DIMlRQORBxUn/3xuc5vGO8=","login":null}

…

Dependencies

Change contents

Review