Remove unnecessary CPP condition in UTF8
Base 4.4 is ghc 7.2, so we don't have to worry about getting a lower version.
This commit is contained in:
parent
7ea16ad058
commit
c613dbde01
1 changed files with 2 additions and 7 deletions
|
@ -1,4 +1,3 @@
|
|||
{-# LANGUAGE CPP #-}
|
||||
{-
|
||||
Copyright (C) 2010-2016 John MacFarlane <jgm@berkeley.edu>
|
||||
|
||||
|
@ -116,11 +115,7 @@ fromStringLazy :: String -> BL.ByteString
|
|||
fromStringLazy = TL.encodeUtf8 . TL.pack
|
||||
|
||||
encodePath :: FilePath -> FilePath
|
||||
decodeArg :: String -> String
|
||||
#if MIN_VERSION_base(4,4,0)
|
||||
encodePath = id
|
||||
|
||||
decodeArg :: String -> String
|
||||
decodeArg = id
|
||||
#else
|
||||
encodePath = B.unpack . fromString
|
||||
decodeArg = toString . B.pack
|
||||
#endif
|
||||
|
|
Loading…
Reference in a new issue