Add ViewPatterns to default-extensions

Seems relatively harmless

package.yaml

@@ -94,6 +94,7 @@ default-extensions:
 - TypeApplications
 - TypeFamilies
 - TypeOperators
+- ViewPatterns
 
 ghc-options:
 - -Wall

src/Xanthous/App.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns         #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE RecordWildCards      #-}
 --------------------------------------------------------------------------------

src/Xanthous/Command.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 --------------------------------------------------------------------------------
 module Xanthous.Command where
 --------------------------------------------------------------------------------

src/Xanthous/Data.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE PartialTypeSignatures  #-}
 {-# LANGUAGE StandaloneDeriving     #-}
-{-# LANGUAGE ViewPatterns           #-}
 {-# LANGUAGE RoleAnnotations        #-}
 {-# LANGUAGE RecordWildCards        #-}
 {-# LANGUAGE DeriveTraversable      #-}

src/Xanthous/Data/EntityMap.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE DeriveTraversable  #-}

src/Xanthous/Data/EntityMap/Graphics.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 --------------------------------------------------------------------------------
 module Xanthous.Data.EntityMap.Graphics
   ( visiblePositions

src/Xanthous/Entities/Character.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Xanthous.Entities.Character
   ( Character(..)

src/Xanthous/Generators/CaveAutomata.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE MultiWayIf #-}
-{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE TemplateHaskell #-}
 --------------------------------------------------------------------------------

src/Xanthous/Generators/Dungeon.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE TemplateHaskell #-}
 --------------------------------------------------------------------------------
 module Xanthous.Generators.Dungeon

src/Xanthous/Generators/LevelContents.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 --------------------------------------------------------------------------------
 module Xanthous.Generators.LevelContents
   ( chooseCharacterPosition

src/Xanthous/Generators/Util.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE QuantifiedConstraints #-}
 {-# LANGUAGE AllowAmbiguousTypes #-}
 --------------------------------------------------------------------------------

src/Xanthous/Orphans.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE PackageImports #-}

src/Xanthous/Util/Inflection.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE ViewPatterns #-}
 
 module Xanthous.Util.Inflection
   ( toSentence