repos / handle-examples.hs.git

commit
82dee90
parent
5f12fd0
author
Evgenii Akentev
date
2023-01-28 13:57:10 +0400 +04
Bump base version restrictions
6 files changed,  +10, -8
M backpack-handle/backpack-handle.cabal
M backpack-handles/backpack-handles.cabal
M records-handle/records-handle.cabal
M row-handle/domain/WeatherProvider.hs
M simple-handle/simple-handle.cabal
M simple/simple.cabal
M backpack-handle/backpack-handle.cabal
+1, -1 
1@@ -30,7 +30,7 @@ library test-impl
2 
3 executable main
4   main-is:             Main.hs
5-  build-depends:       base >=4.13 && <4.14
6+  build-depends:       base >=4.13 && <5
7                      , impl
8                      , domain
9   default-language:    Haskell2010
M backpack-handles/backpack-handles.cabal
+1, -1 
1@@ -42,7 +42,7 @@ library test-provider
2 
3 executable main
4   main-is:             Main.hs
5-  build-depends:       base >=4.13 && <4.14
6+  build-depends:       base >=4.13 && <5
7                      , impl-provider
8                      , impl-reporter
9                      , domain-reporter
M records-handle/records-handle.cabal
+1, -1 
1@@ -30,7 +30,7 @@ library test-impl
2 
3 executable main
4   main-is:             Main.hs
5-  build-depends:       base >=4.13 && <4.14
6+  build-depends:       base >=4.13 && <5
7                      , domain
8                      , impl
9   default-language:    Haskell2010
M row-handle/domain/WeatherProvider.hs
+5, -3 
 1@@ -7,14 +7,16 @@ module WeatherProvider where
 2 
 3 import Data.Row
 4 import HandleRow
 5-import qualified WindProvider as W
 6-import qualified TemperatureProvider as T
 7+import qualified WindProvider
 8+import qualified TemperatureProvider
 9 import QueryTypes
10 
11 data WeatherData = WeatherData { temperature :: T.Temperature, wind :: W.WindSpeed }
12 
13 -- We union the methods of providers and extend it with a common method.
14-type Methods = "getWeatherData" .== (Location -> Day -> IO WeatherData) .+ W.Methods .+ T.Methods
15+type Methods = ("getWeatherData" .== (Location -> Day -> IO WeatherData))
16+  .+ WindProvider.Methods
17+  .+ TemperatureProvider.Methods
18 
19 type Handle = HandleRow Methods
20
M simple-handle/simple-handle.cabal
+1, -1 
1@@ -16,6 +16,6 @@ library domain
2 
3 executable main
4   main-is:             Main.hs
5-  build-depends:       base >=4.13 && <4.14
6+  build-depends:       base >=4.13 && <5
7                      , domain
8   default-language:    Haskell2010
M simple/simple.cabal
+1, -1 
1@@ -16,6 +16,6 @@ library domain
2 
3 executable main
4   main-is:             Main.hs
5-  build-depends:       base >=4.13 && <4.14
6+  build-depends:       base >=4.13 && <5
7                      , domain
8   default-language:    Haskell2010