MTG Picture-sourcer for untap.in

code-sourcer.hs

parseLine = fmap tail . break (== ' ')

editLine = fmap f where
    f s = s ++ "^http://mtgimage.com/card/" ++ s ++ ".jpg"

writeLine (x, y) = x ++ " " ++ y

main = interact $ unlines
                . map ( writeLine
                      . editLine
                      . parseLine
                      )
                . lines