From ecd33e0c901b34d77ea77ad0f3b65125d85a4515 Mon Sep 17 00:00:00 2001
From: Griffin Smith <root@gws.fyi>
Date: Mon, 11 May 2020 22:47:50 -0400
Subject: [PATCH] Add ViewPatterns to default-extensions

Seems relatively harmless
---
 package.yaml                             | 1 +
 src/Xanthous/App.hs                      | 1 -
 src/Xanthous/Command.hs                  | 1 -
 src/Xanthous/Data.hs                     | 1 -
 src/Xanthous/Data/EntityMap.hs           | 1 -
 src/Xanthous/Data/EntityMap/Graphics.hs  | 1 -
 src/Xanthous/Entities/Character.hs       | 1 -
 src/Xanthous/Generators/CaveAutomata.hs  | 1 -
 src/Xanthous/Generators/Dungeon.hs       | 1 -
 src/Xanthous/Generators/LevelContents.hs | 1 -
 src/Xanthous/Generators/Util.hs          | 1 -
 src/Xanthous/Orphans.hs                  | 1 -
 src/Xanthous/Util/Inflection.hs          | 1 -
 13 files changed, 1 insertion(+), 12 deletions(-)

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