on master help sign in
Use LANGUAGE pragmas instead of -fglasgow-exts
425fd67Duncan Coutts
Data/Text.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -fglasgow-exts #-}
2{-# LANGUAGE BangPatterns #-}
1{-# LANGUAGE BangPatterns #-}
3
2
4module Data.Text where
3module Data.Text where
Data/Text/Fusion.hs+1−2
@@ -1,5 +1,4 @@
1−{-# OPTIONS_GHC -fglasgow-exts #-}
2−{-# LANGUAGE BangPatterns #-}
1+{-# LANGUAGE ExistentialQuantification, BangPatterns, MagicHash #-}
3--TODO: eliminate the need to supress these warnings:
2--TODO: eliminate the need to supress these warnings:
4{-# OPTIONS_GHC -fno-warn-incomplete-patterns -fno-warn-unused-matches #-}
3{-# OPTIONS_GHC -fno-warn-incomplete-patterns -fno-warn-unused-matches #-}
5
4
Data/Text/UnsafeChar.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -fglasgow-exts #-}
1+{-# LANGUAGE MagicHash #-}
2
2
3module Data.Text.UnsafeChar where
3module Data.Text.UnsafeChar where
4
4
Data/Text/Utf16.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -fglasgow-exts #-}
1+{-# LANGUAGE MagicHash #-}
2
2
3module Data.Text.Utf16 where
3module Data.Text.Utf16 where
4
4
Data/Text/Utf8.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -fglasgow-exts #-}
1+{-# LANGUAGE MagicHash #-}
2module Data.Text.Utf8 where
2module Data.Text.Utf8 where
3
3
4import Data.Char(ord)
4import Data.Char(ord)