cln: hlint: Fix newtype warning.
This commit is contained in:
parent
1e69fd81ea
commit
e666bbcaf0
@ -64,7 +64,6 @@
|
|||||||
- ignore: {name: "Use replicate"}
|
- ignore: {name: "Use replicate"}
|
||||||
- ignore: {name: "Use void"}
|
- ignore: {name: "Use void"}
|
||||||
- ignore: {name: "Use bimap"}
|
- ignore: {name: "Use bimap"}
|
||||||
- ignore: {name: "Use newtype instead of data"}
|
|
||||||
- ignore: {name: "Use elemIndex"}
|
- ignore: {name: "Use elemIndex"}
|
||||||
- ignore: {name: "Use =="}
|
- ignore: {name: "Use =="}
|
||||||
- ignore: {name: "Use lambda-case"}
|
- ignore: {name: "Use lambda-case"}
|
||||||
|
|||||||
@ -32,7 +32,7 @@ infixl 4 <$!>
|
|||||||
(<$!>) :: TokenParsing m => (a -> b) -> m a -> m b
|
(<$!>) :: TokenParsing m => (a -> b) -> m a -> m b
|
||||||
f <$!> ma = ($!) <$> pure f <*> ma
|
f <$!> ma = ($!) <$> pure f <*> ma
|
||||||
|
|
||||||
data RawJournal = RawJournal [RawEntity]
|
newtype RawJournal = RawJournal [RawEntity]
|
||||||
deriving (Show, Eq)
|
deriving (Show, Eq)
|
||||||
|
|
||||||
data RawEntity = Whitespace String
|
data RawEntity = Whitespace String
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user