Support Transforms.optimize

Partially optimize inputs and document rules for further optimizations we can
make.
This commit is contained in:
William Carroll 2020-08-06 00:15:31 +01:00
parent d45685e245
commit e14fff7d4b
2 changed files with 19 additions and 0 deletions

View file

@ -71,3 +71,10 @@ main = hspec $ do
, Utils.rotate (-3) ['A','S','D','F','G','H','J','K','L',';']
, Utils.rotate (-3) ['Z','X','C','V','B','N','M',',','.','/']
]
describe "Transforms.optimize" $ do
it "removes superfluous horizontal transformations" $ do
Transforms.optimize [HorizontalFlip, HorizontalFlip] == []
it "removes superfluous vertical transformations" $ do
Transforms.optimize [VerticalFlip, VerticalFlip] == []