From: Evgenii Akentev <i@ak3n.com>
Date: Sat, 28 Jan 2023 09:57:10 +0000 (+0300)
Subject: Bump base version restrictions
X-Git-Url: https://git.ak3n.com/?a=commitdiff_plain;h=82dee90ff86a13664834b3bf0f850c0c4c3a87e5;p=handle-examples.git

Bump base version restrictions
---

diff --git a/backpack-handle/backpack-handle.cabal b/backpack-handle/backpack-handle.cabal
index 3bf756b..843c616 100644
--- a/backpack-handle/backpack-handle.cabal
+++ b/backpack-handle/backpack-handle.cabal
@@ -30,7 +30,7 @@ library test-impl
 
 executable main
   main-is:             Main.hs
-  build-depends:       base >=4.13 && <4.14
+  build-depends:       base >=4.13 && <5
                      , impl
                      , domain
   default-language:    Haskell2010
diff --git a/backpack-handles/backpack-handles.cabal b/backpack-handles/backpack-handles.cabal
index 6cfe4f8..0f051fc 100644
--- a/backpack-handles/backpack-handles.cabal
+++ b/backpack-handles/backpack-handles.cabal
@@ -42,7 +42,7 @@ library test-provider
 
 executable main
   main-is:             Main.hs
-  build-depends:       base >=4.13 && <4.14
+  build-depends:       base >=4.13 && <5
                      , impl-provider
                      , impl-reporter
                      , domain-reporter
diff --git a/records-handle/records-handle.cabal b/records-handle/records-handle.cabal
index 1540e7e..05e488f 100644
--- a/records-handle/records-handle.cabal
+++ b/records-handle/records-handle.cabal
@@ -30,7 +30,7 @@ library test-impl
 
 executable main
   main-is:             Main.hs
-  build-depends:       base >=4.13 && <4.14
+  build-depends:       base >=4.13 && <5
                      , domain
                      , impl
   default-language:    Haskell2010
diff --git a/row-handle/domain/WeatherProvider.hs b/row-handle/domain/WeatherProvider.hs
index 0a89ce9..a767a0c 100644
--- a/row-handle/domain/WeatherProvider.hs
+++ b/row-handle/domain/WeatherProvider.hs
@@ -7,14 +7,16 @@ module WeatherProvider where
 
 import Data.Row
 import HandleRow
-import qualified WindProvider as W
-import qualified TemperatureProvider as T
+import qualified WindProvider
+import qualified TemperatureProvider
 import QueryTypes
 
 data WeatherData = WeatherData { temperature :: T.Temperature, wind :: W.WindSpeed }
 
 -- We union the methods of providers and extend it with a common method.
-type Methods = "getWeatherData" .== (Location -> Day -> IO WeatherData) .+ W.Methods .+ T.Methods
+type Methods = ("getWeatherData" .== (Location -> Day -> IO WeatherData))
+  .+ WindProvider.Methods
+  .+ TemperatureProvider.Methods
 
 type Handle = HandleRow Methods
 
diff --git a/simple-handle/simple-handle.cabal b/simple-handle/simple-handle.cabal
index 94b079b..26e9079 100644
--- a/simple-handle/simple-handle.cabal
+++ b/simple-handle/simple-handle.cabal
@@ -16,6 +16,6 @@ library domain
 
 executable main
   main-is:             Main.hs
-  build-depends:       base >=4.13 && <4.14
+  build-depends:       base >=4.13 && <5
                      , domain
   default-language:    Haskell2010
diff --git a/simple/simple.cabal b/simple/simple.cabal
index 3e84dad..a2388b0 100644
--- a/simple/simple.cabal
+++ b/simple/simple.cabal
@@ -16,6 +16,6 @@ library domain
 
 executable main
   main-is:             Main.hs
-  build-depends:       base >=4.13 && <4.14
+  build-depends:       base >=4.13 && <5
                      , domain
   default-language:    Haskell2010