jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-09-11 15:55:54 +03:00
Code Issues Projects Releases Wiki Activity

Remove some compat code for base < 4.8 / GHC < 7.10

Browse Source
This commit is contained in:
Simon Jakobi 2021-10-25 22:25:15 +02:00
parent 3d1c56f8d5
commit 5fbf3bc965
16 changed files with 0 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
programs/BorderDemo.hs
View File

@ -2,10 +2,6 @@
{-# LANGUAGE OverloadedStrings #-}
module Main where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid ((<>))
#endif

4
programs/CacheDemo.hs
View File

@ -2,10 +2,6 @@
{-# LANGUAGE OverloadedStrings #-}
module Main where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
#endif
import Control.Monad (void)
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid ((<>))

3
programs/MouseDemo.hs
View File

@ -3,9 +3,6 @@
{-# LANGUAGE TemplateHaskell #-}
module Main where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
import Lens.Micro ((^.), (&), (.~), (%~))
import Lens.Micro.TH (makeLenses)
import Control.Monad (void)

3
programs/TailDemo.hs
View File

@ -1,9 +1,6 @@
{-# LANGUAGE OverloadedStrings #-}
module Main where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid ((<>))
#endif

4
programs/ViewportScrollDemo.hs
View File

@ -2,10 +2,6 @@
{-# LANGUAGE OverloadedStrings #-}
module Main where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
#endif
import Control.Monad (void)
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid ((<>))

5
src/Brick/AttrMap.hs
View File

@ -45,11 +45,6 @@ module Brick.AttrMap
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
import Data.Monoid
#endif
import qualified Data.Semigroup as Sem
import Control.DeepSeq

4
src/Brick/BChan.hs
View File

@ -8,10 +8,6 @@ module Brick.BChan
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
import Control.Concurrent.STM.TBQueue
import Control.Monad.STM (atomically, orElse)

4
src/Brick/Main.hs
View File

@ -56,10 +56,6 @@ import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.State
import Control.Monad.Trans.Reader
import Control.Concurrent (forkIO, killThread)
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
import Data.Monoid (mempty)
#endif
import qualified Data.Foldable as F
import Data.Maybe (listToMaybe)
import qualified Data.Map as M

5
src/Brick/Types.hs
View File

@ -84,11 +84,6 @@ module Brick.Types
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
import Data.Monoid (Monoid(..))
#endif
import Lens.Micro (_1, _2, to, (^.), (&), (.~), Lens')
import Lens.Micro.Type (Getting)
import Control.Monad.Catch (MonadThrow, MonadCatch, MonadMask)

4
src/Brick/Types/Internal.hs
View File

@ -53,10 +53,6 @@ module Brick.Types.Internal
)
where
#if !MIN_VERSION_base(4,8,0)
import Data.Monoid
#endif
import Lens.Micro (_1, _2, Lens')
import Lens.Micro.TH (makeLenses)
import qualified Data.Set as S

4
src/Brick/Widgets/Border.hs
View File

@ -26,10 +26,6 @@ module Brick.Widgets.Border
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
import Lens.Micro ((^.), (&), (.~), to)
import Graphics.Vty (imageHeight, imageWidth)

5
src/Brick/Widgets/Core.hs
View File

@ -100,11 +100,6 @@ where
import Data.Monoid ((<>))
#endif
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
import Data.Monoid ((<>), mempty)
#endif
import Lens.Micro ((^.), (.~), (&), (%~), to, _1, _2, each, to, Lens')
import Lens.Micro.Mtl (use, (%=))
import Control.Monad ((>=>),when)

4
src/Brick/Widgets/Dialog.hs
View File

@ -36,10 +36,6 @@ module Brick.Widgets.Dialog
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
#endif
import Lens.Micro
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid

4
src/Brick/Widgets/Internal.hs
View File

@ -7,10 +7,6 @@ module Brick.Widgets.Internal
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
#endif
import Lens.Micro ((^.), (&), (%~))
import Control.Monad.Trans.State.Lazy
import Control.Monad.Trans.Reader

6
src/Brick/Widgets/List.hs
View File

@ -78,13 +78,7 @@ where
import Prelude hiding (reverse, splitAt)
import Control.Applicative ((<|>))
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>), (<*>), pure)
import Data.Foldable (Foldable, find, toList)
import Data.Traversable (Traversable)
#else
import Data.Foldable (find, toList)
#endif
import Control.Monad.Trans.State (evalState, get, put)
import Lens.Micro ((^.), (^?), (&), (.~), (%~), _2, _head, set)

5
src/Data/Text/Markup.hs
View File

@ -17,11 +17,6 @@ module Data.Text.Markup
)
where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
import Data.Monoid
#endif
import qualified Data.Semigroup as Sem
import Data.String (IsString(..))
import qualified Data.Text as T