haskell media server that crops