@@ -1,19 +1,12 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE CPP #-}
2{-# LANGUAGE BangPatterns #-}
2{-# LANGUAGE BangPatterns #-}
3−{-# LANGUAGE ConstraintKinds #-}
4−{-# LANGUAGE DeriveAnyClass #-}
5−{-# LANGUAGE DeriveGeneric #-}
6{-# LANGUAGE FlexibleContexts #-}
3{-# LANGUAGE FlexibleContexts #-}
7{-# LANGUAGE FlexibleInstances #-}
4{-# LANGUAGE FlexibleInstances #-}
8{-# LANGUAGE GADTs #-}
5{-# LANGUAGE GADTs #-}
9{-# LANGUAGE LambdaCase #-}
6{-# LANGUAGE LambdaCase #-}
10{-# LANGUAGE MultiParamTypeClasses #-}
7{-# LANGUAGE MultiParamTypeClasses #-}
11−{-# LANGUAGE OverloadedStrings #-}
12−{-# LANGUAGE PolyKinds #-}
13−{-# LANGUAGE RankNTypes #-}
14{-# LANGUAGE RecursiveDo #-}
8{-# LANGUAGE RecursiveDo #-}
15{-# LANGUAGE ScopedTypeVariables #-}
9{-# LANGUAGE ScopedTypeVariables #-}
16−{-# LANGUAGE StandaloneDeriving #-}
17{-# LANGUAGE TemplateHaskell #-}
10{-# LANGUAGE TemplateHaskell #-}
18{-# LANGUAGE TypeApplications #-}
11{-# LANGUAGE TypeApplications #-}
19{-# LANGUAGE TypeFamilies #-}
12{-# LANGUAGE TypeFamilies #-}
@@ -23,7 +16,6 @@ import Control.Lens hiding (has)
23import Control.Monad
16import Control.Monad
24import Control.Monad.Fix
17import Control.Monad.Fix
25import Control.Monad.IO.Class (MonadIO)
18import Control.Monad.IO.Class (MonadIO)
26−import Data.Aeson (Value, FromJSON (..), ToJSON, Result(..), toJSON, fromJSON)
27import Data.Constraint.Extras
19import Data.Constraint.Extras
28import Data.Constraint.Extras.TH
20import Data.Constraint.Extras.TH
29import Data.Constraint.Forall
21import Data.Constraint.Forall
@@ -33,11 +25,9 @@ import Data.Functor.Misc
33import Data.List (words)
25import Data.List (words)
34import Data.Map (Map)
26import Data.Map (Map)
35import qualified Data.Map as M
27import qualified Data.Map as M
36−import Data.Some (Some (Some))
37import Data.Text (Text)
28import Data.Text (Text)
38import Data.These
29import Data.These
39import Text.Read (readMaybe)
30import Text.Read (readMaybe)
40−import Control.Monad.Trans.Class (lift)
42#if defined(MIN_VERSION_these_lens) || (MIN_VERSION_these(0,8,0) && !MIN_VERSION_these(0,9,0))
32#if defined(MIN_VERSION_these_lens) || (MIN_VERSION_these(0,8,0) && !MIN_VERSION_these(0,9,0))
43import Data.These.Lens
33import Data.These.Lens
@@ -48,8 +38,6 @@ import Reflex.Requester.Base
48import Reflex.Requester.Class
38import Reflex.Requester.Class
49import Test.Run
39import Test.Run
53data RequestInt a where
41data RequestInt a where
54 RequestInt :: Int -> RequestInt Int
42 RequestInt :: Int -> RequestInt Int