Formatted by  stylish-haskell
replaced necessary method >>unjust<<