1
+ {-# LANGUAGE CPP #-}
1
2
{-# LANGUAGE DerivingStrategies #-}
2
- {-# LANGUAGE MonadFailDesugaring #-}
3
3
{-# LANGUAGE ScopedTypeVariables #-}
4
4
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
5
5
{-# LANGUAGE LambdaCase #-}
9
9
{-# LANGUAGE TemplateHaskell #-}
10
10
{-# LANGUAGE DataKinds #-}
11
11
{-# LANGUAGE TypeFamilies #-}
12
+ #if __GLASGOW_HASKELL__ < 806
13
+ {-# LANGUAGE MonadFailDesugaring #-}
14
+ #endif
12
15
13
16
module Main (main ) where
14
17
@@ -19,7 +22,6 @@ import Data.Aeson (FromJSON, (.:))
19
22
import Data.FileEmbed (embedStringFile )
20
23
import Data.List (intercalate )
21
24
import Data.Maybe (mapMaybe )
22
- import Data.Semigroup ((<>) )
23
25
import Data.String.Interpolate
24
26
import Shelly (Sh )
25
27
import System.Directory (doesFileExist , doesPathExist , canonicalizePath )
@@ -32,6 +34,9 @@ import qualified Data.Map as Map
32
34
import qualified Data.Text as T
33
35
import qualified Options.Applicative as Opts
34
36
import qualified Shelly as S
37
+ #if !MIN_VERSION_base(4,11,0)
38
+ import Data.Semigroup ((<>) )
39
+ #endif
35
40
36
41
main :: IO ()
37
42
main = do
0 commit comments