hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Try adding a standalone deriving read instance

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-01-06 19:22:49 +03:00
parent da1c1bebb2
commit 553389ed7b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
System/Directory/ModTime.hs
View File

@ -13,7 +13,7 @@
-- --
-- You should have received a copy of the GNU Affero General Public License -- You should have received a copy of the GNU Affero General Public License
-- along with this program. If not, see <http://www.gnu.org/licenses/>. -- along with this program. If not, see <http://www.gnu.org/licenses/>.
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP, StandaloneDeriving #-}
module System.Directory.ModTime where module System.Directory.ModTime where
import Control.Applicative import Control.Applicative
@ -40,6 +40,7 @@ instance Binary ModTime where
#else #else
deriving instance Read ClockTime
newtype ModTime = ModTime ClockTime newtype ModTime = ModTime ClockTime
deriving (Eq, Ord, Show, Read) deriving (Eq, Ord, Show, Read)
getCurrentModTime = ModTime <$> getClockTime getCurrentModTime = ModTime <$> getClockTime