Specialize ‘parser’ and ‘parserBs’

mrkkrp · Oct 29, 2017 · 02c3897 · 02c3897
1 parent 5aace61
commit 02c3897
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Text/URI/Parser/ByteString.hs b/Text/URI/Parser/ByteString.hs
@@ -27,6 +27,7 @@ import Data.Char
 import Data.List (intercalate)
 import Data.Maybe (isNothing, catMaybes, maybeToList)
 import Data.Text (Text)
+import Data.Void
 import Data.Word (Word8)
 import Text.Megaparsec
 import Text.Megaparsec.Byte
@@ -51,6 +52,7 @@ parserBs = do
   uriFragment  <- optional pFragment
   return URI {..}
 {-# INLINEABLE parserBs #-}
+{-# SPECIALIZE parserBs :: Parsec Void ByteString URI #-}
 
 pScheme :: MonadParsec e ByteString m => m (RText 'Scheme)
 pScheme = do

diff --git a/Text/URI/Parser/Text.hs b/Text/URI/Parser/Text.hs
@@ -75,6 +75,7 @@ parser = do
   uriFragment  <- optional pFragment
   return URI {..}
 {-# INLINEABLE parser #-}
+{-# SPECIALIZE parser :: Parsec Void Text URI #-}
 
 pScheme :: MonadParsec e Text m => m (RText 'Scheme)
 pScheme = do