1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{-# LANGUAGE CPP #-}
-- CPP: GHC >= 7.8 for Safe Haskell
#if __GLASGOW_HASKELL__ >= 708
{-# LANGUAGE Safe #-}
#endif
{-# LANGUAGE OverloadedStrings #-}
--------------------------------------------------------------------------------
-- | Tests using the OverloadedStrings language extension.
module OverloadedStrings (test) where
--------------------------------------------------------------------------------
import qualified Data.DList as DList
-- CPP: GHC >= 8 for DNonEmpty
#if __GLASGOW_HASKELL__ >= 800
import qualified Data.DList.DNonEmpty as DNonEmpty
#endif
--------------------------------------------------------------------------------
test :: IO ()
test = do
print $ "OverloadedStrings for DList: " `DList.append` "success"
-- CPP: GHC >= 8 for DNonEmpty
#if __GLASGOW_HASKELL__ >= 800
print $ "OverloadedStrings for DNonEmpty: " `DNonEmpty.append` "success"
#endif
|
