Browse Source

Fix build with ghc-7.6

tags/0.9.2
Julian Ospald 6 years ago
parent
commit
d9ba67b6f0
No known key found for this signature in database GPG Key ID: 511B62C09D50CD28
2 changed files with 11 additions and 0 deletions
  1. +6
    -0
      src/HPath.hs
  2. +5
    -0
      src/HPath/IO.hs

+ 6
- 0
src/HPath.hs View File

@@ -13,7 +13,9 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE EmptyDataDecls #-}
#if __GLASGOW_HASKELL__ >= 708
{-# LANGUAGE PatternSynonyms #-}
#endif

module HPath
(
@@ -25,8 +27,10 @@ module HPath
,PathParseException
,PathException
,RelC
#if __GLASGOW_HASKELL__ >= 708
-- * PatternSynonyms/ViewPatterns
,pattern Path
#endif
-- * Path Parsing
,parseAbs
,parseFn
@@ -101,7 +105,9 @@ instance RelC Fn
#if __GLASGOW_HASKELL__ >= 710
pattern Path :: ByteString -> Path a
#endif
#if __GLASGOW_HASKELL__ >= 708
pattern Path x <- (MkPath x)
#endif

--------------------------------------------------------------------------------
-- Path Parsers


+ 5
- 0
src/HPath/IO.hs View File

@@ -33,6 +33,7 @@
-- For other functions (like `copyFile`), the behavior on these file types is
-- unreliable/unsafe. Check the documentation of those functions for details.

{-# LANGUAGE CPP #-}
{-# LANGUAGE PackageImports #-}
{-# LANGUAGE OverloadedStrings #-}

@@ -107,7 +108,11 @@ import Data.ByteString
(
ByteString
)
#if MIN_VERSION_bytestring(0,10,2)
import Data.ByteString.Builder
#else
import Data.ByteString.Lazy.Builder
#endif
(
Builder
, byteString


Loading…
Cancel
Save