From ba70ca2a921d7aa7af547a61ea7eba5a02381653 Mon Sep 17 00:00:00 2001
From: David Feuer <David.Feuer@gmail.com>
Date: Tue, 24 May 2016 18:48:53 -0400
Subject: Make parser state a newtype

Previously, it was `data` wrapping a `Maybe`, which seems a bit
silly. Obviously, this can be changed back if anyone wants to add
more fields some day.
---
 haddock-library/src/Documentation/Haddock/Parser/Monad.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'haddock-library/src/Documentation/Haddock/Parser/Monad.hs')

diff --git a/haddock-library/src/Documentation/Haddock/Parser/Monad.hs b/haddock-library/src/Documentation/Haddock/Parser/Monad.hs
index a421c58c..3f7d60f8 100644
--- a/haddock-library/src/Documentation/Haddock/Parser/Monad.hs
+++ b/haddock-library/src/Documentation/Haddock/Parser/Monad.hs
@@ -42,7 +42,7 @@ import           Data.Tuple
 
 import           Documentation.Haddock.Types (Version)
 
-data ParserState = ParserState {
+newtype ParserState = ParserState {
   parserStateSince :: Maybe Version
 } deriving (Eq, Show)
 
-- 
cgit v1.2.3