pugs-compat 0.0.4 → 0.0.5

raw patch · 6 files changed

+11/−6 lines, 6 files

Files

pugs-compat.cabal +3/−4
src/Pugs/Compat.hs +1/−0
src/Pugs/Compat/Cast.hs +2/−1
src/Pugs/Compat/Monads.hs +0/−1
src/Pugs/Compat/Posix.hs +1/−0
src/Pugs/Compat/Regex.hs +4/−0

pugs-compat.cabal view

@@ -1,5 +1,5 @@ Name           : pugs-compat-Version        : 0.0.4+Version        : 0.0.5 Build-type     : Simple Category       : Pugs License        : BSD3@@ -9,7 +9,7 @@ Description    : Portable Haskell/POSIX layer for Pugs Cabal-Version  : >=1.2.1 -Library {+Library   Extensions      : CPP, MagicHash, ScopedTypeVariables, MultiParamTypeClasses,                     TypeSynonymInstances, FlexibleInstances, PatternGuards,                     UndecidableInstances, FlexibleContexts, OverlappingInstances@@ -22,7 +22,7 @@                     Pugs.Compat.Monads Pugs.Compat.Posix Pugs.Compat.String                     Pugs.Compat.Regex -  Ghc-Options     : -fparr+  Ghc-Options     : -fparr -Wall    Hs-source-dirs  : src @@ -32,4 +32,3 @@     Build-depends : unix     Extensions    : ForeignFunctionInterface     CPP-options   : -DPUGS_HAVE_POSIX-}

src/Pugs/Compat.hs view

@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -fno-warn-unused-imports -fno-warn-orphans #-} {-|     Internal utilities and library imports.

src/Pugs/Compat/Cast.hs view

@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-} module Pugs.Compat.Cast (     (:>:)(..),     (:<:)(..),@@ -7,8 +8,8 @@     _cast ) where -import Data.Dynamic hiding (cast) import GHC.Exts (unsafeCoerce#, Word(W#), Word#)+import Data.Dynamic hiding (cast) import Data.ByteString (ByteString) import Data.Sequence (Seq) import Numeric (showHex)

src/Pugs/Compat/Monads.hs view

@@ -20,7 +20,6 @@ ) where  import Prelude hiding (mapM)-import GHC.Base (realWorld#) import Data.Traversable import Debug.Trace import qualified Data.ByteString.Internal as I (inlinePerformIO)

src/Pugs/Compat/Posix.hs view

@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -fno-warn-orphans #-} {-|     POSIX calls and emulations.

src/Pugs/Compat/Regex.hs view

@@ -3,7 +3,11 @@     executePCRE ) where +import Data.Array (Array) import qualified Text.Regex.PCRE.String as PCRE +compilePCRE :: PCRE.CompOption -> PCRE.ExecOption -> String -> IO (Either (PCRE.MatchOffset, String) PCRE.Regex)  compilePCRE = PCRE.compile++executePCRE :: PCRE.Regex -> String -> IO (Either PCRE.WrapError (Maybe (Array Int (PCRE.MatchOffset, PCRE.MatchLength))))  executePCRE = PCRE.execute