diff --git a/package.yaml b/package.yaml index d639e555c..936fc4fd0 100644 --- a/package.yaml +++ b/package.yaml @@ -94,6 +94,7 @@ default-extensions: - TypeApplications - TypeFamilies - TypeOperators +- ViewPatterns ghc-options: - -Wall diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs index ea1405e46..f7013076d 100644 --- a/src/Xanthous/App.hs +++ b/src/Xanthous/App.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE RecordWildCards #-} -------------------------------------------------------------------------------- diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index e12feaebd..2e7e6f1ff 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} -------------------------------------------------------------------------------- module Xanthous.Command where -------------------------------------------------------------------------------- diff --git a/src/Xanthous/Data.hs b/src/Xanthous/Data.hs index 2cfb8204d..ec40b8721 100644 --- a/src/Xanthous/Data.hs +++ b/src/Xanthous/Data.hs @@ -1,6 +1,5 @@ {-# LANGUAGE PartialTypeSignatures #-} {-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE RoleAnnotations #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE DeriveTraversable #-} diff --git a/src/Xanthous/Data/EntityMap.hs b/src/Xanthous/Data/EntityMap.hs index 4e7796b1f..d24defa84 100644 --- a/src/Xanthous/Data/EntityMap.hs +++ b/src/Xanthous/Data/EntityMap.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE DeriveTraversable #-} diff --git a/src/Xanthous/Data/EntityMap/Graphics.hs b/src/Xanthous/Data/EntityMap/Graphics.hs index 0f2f2bfe1..5a73bd393 100644 --- a/src/Xanthous/Data/EntityMap/Graphics.hs +++ b/src/Xanthous/Data/EntityMap/Graphics.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} -------------------------------------------------------------------------------- module Xanthous.Data.EntityMap.Graphics ( visiblePositions diff --git a/src/Xanthous/Entities/Character.hs b/src/Xanthous/Entities/Character.hs index 424488828..c18d726a4 100644 --- a/src/Xanthous/Entities/Character.hs +++ b/src/Xanthous/Entities/Character.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE TemplateHaskell #-} module Xanthous.Entities.Character ( Character(..) diff --git a/src/Xanthous/Generators/CaveAutomata.hs b/src/Xanthous/Generators/CaveAutomata.hs index 5a7c081d0..83740fe4b 100644 --- a/src/Xanthous/Generators/CaveAutomata.hs +++ b/src/Xanthous/Generators/CaveAutomata.hs @@ -1,5 +1,4 @@ {-# LANGUAGE MultiWayIf #-} -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TemplateHaskell #-} -------------------------------------------------------------------------------- diff --git a/src/Xanthous/Generators/Dungeon.hs b/src/Xanthous/Generators/Dungeon.hs index fdc510bb7..7fde0075e 100644 --- a/src/Xanthous/Generators/Dungeon.hs +++ b/src/Xanthous/Generators/Dungeon.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE TemplateHaskell #-} -------------------------------------------------------------------------------- module Xanthous.Generators.Dungeon diff --git a/src/Xanthous/Generators/LevelContents.hs b/src/Xanthous/Generators/LevelContents.hs index 5f83a83a3..ed4cc87e7 100644 --- a/src/Xanthous/Generators/LevelContents.hs +++ b/src/Xanthous/Generators/LevelContents.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} -------------------------------------------------------------------------------- module Xanthous.Generators.LevelContents ( chooseCharacterPosition diff --git a/src/Xanthous/Generators/Util.hs b/src/Xanthous/Generators/Util.hs index 13f248a04..cdac568e4 100644 --- a/src/Xanthous/Generators/Util.hs +++ b/src/Xanthous/Generators/Util.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE QuantifiedConstraints #-} {-# LANGUAGE AllowAmbiguousTypes #-} -------------------------------------------------------------------------------- diff --git a/src/Xanthous/Orphans.hs b/src/Xanthous/Orphans.hs index b7a4a3212..8e82c372b 100644 --- a/src/Xanthous/Orphans.hs +++ b/src/Xanthous/Orphans.hs @@ -1,6 +1,5 @@ {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE PackageImports #-} diff --git a/src/Xanthous/Util/Inflection.hs b/src/Xanthous/Util/Inflection.hs index fc66c0876..724f2339d 100644 --- a/src/Xanthous/Util/Inflection.hs +++ b/src/Xanthous/Util/Inflection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE ViewPatterns #-} module Xanthous.Util.Inflection ( toSentence